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Introduction 


1.1 Overview 


This chapter introduces the information in the Microsofte FORTRAN Com- 
piler Language Reference, describes the notational conventions used in the 
manual, and tells how to learn more about FORTRAN. 


For information on how to compile and link FORTRAN programs on your 
system, and a discussion of some of the Microsoft FORTRAN language 
extensions, see the Microsoft FORTRAN Compiler User’s Guide. To find out 
how to use the Microsoft CodeView1m Window-Oriented Debugger to debug 
your programs, see the Microsoft CodeView manual. 


1.2 About This Manual 


The Microsoft FORTRAN Compiler Language Reference defines the FOR- 
TRAN language as implemented by the Microsoft FORTRAN Optimizing 
Compiler, Version 4.0. It is intended as a reference for programmers who 
_ have experience in the FORTRAN language. This manual does not teach 
you how to program in FORTRAN; for a list of suggested texts on FOR- 
TRAN, see Section 1.4, “Books about FORTRAN.” 


Microsoft FORTRAN conforms to the American National Standard Pro- 
gramming Language FORTRAN 77, as described in the American National 
Standards Institute (ANSD X3.9-1978 standard. 


Note 


Microsoft FORTRAN contains many extensions to the full ANSI stan- 
dard. In this manual, information on all Microsoft extensions is printed 
in blue. 


Chapters 2, 3, and 4 of this manual discuss particular elements of the 
Microsoft FORTRAN language. Chapters 5 and 6 and Appendix B give 
alphabetical listings of statements, metacommands, and intrinsic functions, 
respectively. The following list shows where to look for information on 
specific topics: 


For Information on: 


Characters, names, data types, 
attributes, and expressions in 
Microsoft FORTRAN 


Formatting lines in your source 
program 

Structuring your Microsoft 
FORTRAN programs 


Subroutines, functions, and 
arguments | 


Input and output in Microsoft 
FORTRAN 


Microsoft FORTRAN statements, 
listed alphabetically 


Compiler directives, called 
metacommands, listed alphabetically 


Table of the American Standard 
Code for Information Interchange 
(ASCII) character set 


Intrinsic functions, listed 
alphabetically 


Selected terms used in this 
documentation 
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See: 


Chapter 2, “Elements of 
FORTRAN” 


Chapter 3, “Program 
Structure” 


Chapter 3, “Program 
Structure” 


Chapter 3, “Program 
Structure” 


Chapter 4, “The Input/Output 
(I/O) System” 


Chapter 5, “Statements” | 
Chapter 6, “Metacommands” 


Appendix A, “ASCII Character 
Codes” - 


Appendix B, “Intrinsic 
Functions” 


“Glossary” 


1.3 Notational Conventions 


This manual uses the following notation. Note that, in most cases, blanks 
are not significant in FORTRAN. See Section 2.2.1, “Blanks,” for more 
information. 


Description 
of Convention 


Example 
of Convention 


Blue type in this manual describes features 
that are extensions to the ANSI FORTRAN 77 
full-language standard. These extensions may 


Extensions to ANSI 
standard 


Examples 


FORTRAN 
KEYWORDS 


other keywords 
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or may not be implemented by other compilers 
that conform to the full-language standard. 


For example, the sentence, “The COMPLEX 
or COMPLEX *8 data type is an ordered pair 
of single-precision real numbers,” has the 
words “or COMPLEX *8” in blue type, 
because the COMPLEX «8 data type is an 
extension to the ANSI FORTRAN 77 full- 
language standard. 


The typeface shown in the left column is used 
to simulate the appearance of information that 
would be printed on your screen or by your 
printer. For example, the following program 

is printed in this special typeface: 


CHARACTER a*26 


a = ‘abcdef hijklmnoparstuvwxyz ’ 
WRITE(*,*)a(14:), a(:13) 
END 


When discussing this program in text, words 
appearing in the program, such as a and 
WRITE, also appear in the special typeface. 


Bold capital letters indicate FORTRAN key- 
words. These keywords are a required part of 
the statement syntax, unless they are enclosed 
in double brackets, as explained below. In pro- 
grams you write, you can enter these FOR- 
TRAN keywords in uppercase (capital) letters 
and/or lowercase letters. 


In the following statement, IF and THEN are 
FORTRAN keywords: 


IF (expression) THEN 


Bold lowercase letters indicate keywords of 
other languages. 


In the sentence, “The value that is returned 
by LOCNEAR is equivalent to a near func- 
tion or data pointer in Microsoft C or an 

adr type in Microsoft Pascal,” the word 
LOCNEAR is a FORTRAN keyword, and the 
words near and adr are keywords of Microsoft 
C and Microsoft Pascal, respectively. 
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Apostrophes: 


placeholders 


[optional items] 


Bold type indicates any punctuation or sym- 
bols (such as commas, parentheses, semicolons, 
hyphens, equal signs, and operators) that you 
must type exactly as shown. 


For example, the syntax of the intrinsic func- 
tion CHAR is shown as CHAR(int) because 
you must enter the word CHAR, followed by a 
left parenthesis, followed by an integer, fol- 
lowed by a right parenthesis. Note that since 
CHAR is a FORTRAN keyword, you can 
enter it in either uppercase or lowercase 
letters. 


An apostrophe is entered as a single right 
quotation mark (’), not a single left quotation 
mark (‘). Note that in the typeface used in 
examples, such as ‘String’, apostrophes 
look like this: *. 


Words in italics are placeholders for types of 
information that you must supply. A file name 
is an example of this kind of information. 


In the following statement, label is italicized 
to show that this is a general form for the 
GOTO statement: 


GOTO label 


In an actual program statement, the place- 
holder label must be replaced by a specific 
line label, as in the following example: 


GOTOQ 150 
Italics are also occasionally used in the text 
for emphasis. 
Double square brackets surround anything 
that is optional. 


The following statement, for example, shows 
that entering a message is optional in the 
STOP statement: 


STOP [message] 


ichoicel | choice2} 


Repeating elements... 
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Thus, either of the following STOP state- 
ments is acceptable: 


STOP 
STOP ‘End of program’ 


Note 


Double square brackets ([ ]) are a syntax 
convention used in this manual to indicate 
optional items. Single square brackets ([ }) 
are punctuation that should be typed 
where shown. 


Braces and a vertical bar indicate that you 
have a choice between two or more items. 
Braces enclose the choices, and vertical bars 
separate the choices. You must choose one of 
the items unless all of the items are also 
enclosed in double square brackets. 


For example, the INTERFACE statement has 
the following syntax: 


INTERFACE TO {function|subroutine} 


This statement indicates that you must enter 
either a function or a subroutine after the 


words INTERFACE TO. 


Three dots following an item indicate that 
more items having the same form may be 
entered. 


For example, this is the syntax of the intrinsic 
function MAX: 


MAX (enA,genBl,genC]...) 


The dots following [,genC] indicate that you 
can enter more than two arguments before the 
final right parenthesis, provided the argu- 
ments are separated by commas. 
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Program A column of dots in syntax lines and program 
examples shows that a portion of the program 
has been omitted. 


For instance, in the following program frag- a 
ment, only two lines are shown, and the lines 
in between are omitted: 


CALL getnum(I,*10) 


Fragment 


SUBROUTINE getnum(I,*) 


KEY NAMES Small capital letters are used for the names 
of keys and key sequences, which you must 
press. Examples include ENTER and CONTROL-C. 


= Example 


The following example shows how this manual’s notational conventions are 
used to indicate the syntax of the EXTERNAL statement: 


EXTERNAL name [[atirs}],namel[[atirs]] J... 


This syntax listing shows that when using the EXTERNAL statement, 

you must first enter the word EXTERNAL followed by a name that you 
specify. Then, you can optionally enter a left bracket ([), followed by attri- 
butes (attrs) that you specify, followed by a right bracket (]). If you want 

to specify more names, optionally followed by attributes (attrs), you must 
enter a comma, followed by a name, optionally followed by a left bracket, 
attributes, and a right bracket. Because the [,namel[[attrs]]] sequence 

is followed by three dots (...), you can enter as many of those sequences 

(a comma, followed by a name, optionally followed by attributes in brackets) 
as you want. 
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1.4 Books about FORTRAN 


The following books contain information on FORTRAN programming: 


Agelhoff, Roy, and Richard Mojena. Applied FORTRAN 77, Featuring 
Structured Programming. Belmont, Calif.: Wadsworth, 1981. 


Ashcroft, J., R. H. Eldridge, R. W. Paulson, and G. A. Wilson. Programming 
with FORTRAN 77. Dobbs Ferry, N.Y.: Sheridan House, Inc., 1981. 


Friedman, Frank and E. Koffman. Problem Solving and Structured Pro- 
gramming in FORTRAN. 2d ed. Reading, Mass.: Addison-Wesley, 1981. 


Kernighan, Brian W. and P. J. Plauger. The Elements of Programming 
Style. New York, N.Y.: McGraw-Hill, 1978. 


Wagener, Jerrold L. FORTRAN 77: Principles of Programming. New York, 
N.Y.: John Wiley and Sons, Inc., 1980. 


These books are listed for your convenience only. Microsoft Corporation 
does not endorse these books or recommend them over others on the 
same subject. 
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Elements of FORTRAN 


2.1 Introduction 


A FORTRAN source file is composed of characters, names, and numbers. 
This chapter explains these elements and discusses how they can be com- 
bined in expressions. 


2.2. Characters 


Microsoft FORTRAN source files can contain any printable characters in 
the ASCII character set. The ASCII character set, listed in Appendix A, 
“ASCII Character Codes,” includes the following: 


The 52 uppercase and lowercase alphabetic characters (A through Z 
and a through z). Microsoft FORTRAN also treats the dollar sign ($) 
as an alphabetic character. When names are being collated, the dol- 
lar sign immediately follows uppercase Z. 


The Microsoft FORTRAN Compiler interprets lowercase letters as 
uppercase letters in all contexts except character constants and 
Hollerith fields (see Section 4.8.1.2 for an explanation of Hollerith 
fields). In character constants and Hollerith fields, case is signifi- 
cant. For example, the statements WRITE (*,*) and 
write(*,*) are identical, but the character constants ’ i jk ‘ 
and ‘1jK’ are different. 


There is one exception to case sensitivity in character constants. 
Character constants that are specified with the FORTRAN state- 
ments listed in Chapter 5, “Statements,” are not case sensitive 
unless the $STRICT metacommand is specified. In the CLOSE 
statement, for example, you can enter a character constant to 
specify whether to keep or delete a file. The syntax of this option is 
L.STATUS = status], and the acceptable values of status are "KEEP’ 
and "DELETE’. As long as the $STRICT metacommand is not set, 
setting STATUS equal to KEEP’ is equivalent to setting STATUS 
equal to ’keep’ or ’KeEp’. Note that since STATUS is a FORTRAN 
keyword, it can be spelled in uppercase and/or lowercase letters. 


The 10 digits (0 through 9). 
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All other printable characters in the ASCII character set 
i ae Se es oe a 
<=>?@C ]*%_‘*{t}~ os 


The blank character. 


The tab character. 


The collating sequence for the Microsoft FORTRAN character set is the 
ASCIT sequence. 


2.2.1 Blanks 


The blank character has no significance in a Microsoft FORTRAN source 
program, except as listed below, so you can use blanks to make your pro- 
grams easier to read. The exceptions are the following: 


Blanks in character constants or Hollerith fields are significant. 


A blank or 0 in column 6 indicates an initial line (see Section 3.2, 
“Lines,” for an explanation of initial lines). 


When the BZ edit descriptor is in effect, blanks in numeric input 
fields (other than leading blanks) are interpreted as zeros. You can 
change this with the BN and BZ edit descriptors (described in Sec- 
tion 4.8.1.10, “Blank Interpretation”), or with the BLANK keyword 
in the OPEN statement (described in Section 5.3.38, “The OPEN 
Statement”). 


2.2.2 Tabs 


Interpretation of the tab character depends on which column the tab 
character is in: 


Column Interpretation 


TS) The character following the tab character in the 


source line is interpreted as being in column 7. 


6-72 The tab character is interpreted as one blank, =, 
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unless it is in a character cr Hollerith constant 
(described in Section 4.8.1.2). A tab character in a 
character or Hollerith constant is interpreted as a 
tab character. 


Elements of FORTRAN 


2.0 Names 


Variables, arrays, functions, subprograms, and your program are identified 
by names. Microsoft FORTRAN defines some names; you define others. 

A name is a sequence of alphanumeric characters and must obey the 
following rules: 


@ The first character in a name must be alphabetic; the rest of the 
characters must be alphanumeric. Note that Microsoft FORTRAN 
allows the dollar sign as an alphabetic character that follows Z in 
the collating sequence for names. 


e Blanks are ignored. Thus, variable names like low voltage and 
lowvol tage are identical variables to the compiler. 


@ Unless the $NOTRUNCATE metacommand is set, only the first 
six alphanumeric characters are significant and the rest are ig- 
nored. Blank characters do not count: the names del cate and 
de 1 ca tt e are both interpreted as delcat unless the 
SNOTRUNCATE metacommand is set. 


@ The compiler limits names to 31 characters. Your operating system 
or linker may impose other limits on name lengths. See the Micro- 
soft FORTRAN Compiler User’s Guide for information specific to 
your system. 


Keywords are not reserved names as in other languages. The compiler 
recognizes keywords by their context. For example, a program can have an 
array named IF, read, or Goto. Using these names, however, can make 
programs harder to read and understand. For readability, programmers 
should avoid using names that look like parts of FORTRAN statements. 
Consider the following two statements: 
DU 5 INC = 
DO 5S INC = 1,20 
The first statement assigns the value 1.20 to a variable named DOSINC. 
The second statement is the first statement of a DO loop. Note that the 
only difference between the two statements is that the first contains a 
period and the second contains a comma. 


15 


Microsoft FORTRAN Compiler Language Reference 


The following three predefined names cannot be used: 


1. _main, which is the external name for main programs. (The use 
of “main” is permitted under certain conditions, but is not recom- 
mended. See Section 3.8, “Main Program,” for more information.) 


COMMQQ, which is the name for blank common blocks. 
BLKDQQ, which is the default name for block-data subprograms. 


Also, all names beginning with two underscore characters (_ _) or ending 
with QQ, such as __main or MAINQQ, are reserved by the compiler. 

If you need to use a name beginning with two underscore characters or 
ending with QQ, use the ALIAS attribute (described in Section 2.6.1). 


2.3.1 Global and Local Names 


There are two basic types of names: 


16 


Type 


Global names 


Description 


Global names are recognized anywhere in a 
given program, so they can have only one 
global definition anywhere in that program. 
All subroutine, function, common-block, and 
program names are global. For example, 

if you use a subroutine named Sort in one 
program, you cannot also name a function 
Sort in that program. 


You can, however, use the name Sort asa 
local name (described below) in a different pro- 
gram unit, provided you do not reference the 
global name Sort within that unit. For 
example, a program containing a function 
named Sort can also contain a subroutine 
that declares a variable named Sort, as long 
as the subroutine does not call the function 
Sort. 


Common-block names are a special case of 
global names. You can use the same name for 
a common block in one program and for a local 
name in the same program. This is permitted 
because common-block names are always 
enclosed in slashes, and can therefore be 
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distinguished from other names. For example, 
if your program includes a common block 
named /distance/, you can also name an 
array in that program distance (arrays 
have local names). 


Local names Local names are defined only in a single pro- 
gram unit. In another program unit of the 
same program, the same name can be defined 
again, with the same definition or a different 
definition. 


All variables, arrays, arguments, and state- 
ment functions have local names. 


Arguments to statement functions are a spe- 
cial case of local names. These arguments are 
defined only in the statement-function state- 
ment. If, however, the arguments’ names are 
used outside of the statement-function state- 
ment, the local variables in the enclosing sub- 
program must have the same data type as 
statement-function arguments with the same 
name. See Section 5.3.48, “The Statement- 
Function Statement,” for more information. 


2.3.2. Undeclared Names 


If a name is not explicitly defined, the compiler classifies the name accord- 
ing to the context in which it is first encountered. If you have specified the 
$DECLARE metacommand, a warning message is generated at the first 
use of any variable that has not been declared in a specification statement. 
The following list explains how undeclared names are classified: 


Use of Name Classification 


As a variable, or in a The type of the variable or of the function 

function call return value is determined by the first letter 
of the name. By default, variables with names 
starting with the letters I, J, K, L, M, or N 
(uppercase or lowercase) are given the type 
INTEGER, while variables with names start- 
ing with any other letter or with a dollar sign 
are given the type REAL. You can use the 
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As the target of a 
CALL statement 


In a function 
reference 


IMPLICIT statement to change the associa- 
tion between type and first alphabetic charac- 
ter (including the dollar sign). For more infor- 
mation, see Section 5.3.31, “The IMPLICIT 
Statement.” 


The compiler assumes the name is a subrou- 
tine name. 


If the definition of the subroutine precedes a 
CALL statement in the same source file that 
references that subroutine, the compiler 
checks that the number and type of the actual 
arguments in the CALL statement are con- 
sistent with those specified in the correspond- 
ing SUBROUTINE statement. Note also that 
the INTERFACE statement (described in Sec- 
tion 5.3.34) can be used to ensure that subpro- 
gram calls have the correct number and type 
of arguments. 


The compiler assumes the name is a function 
name. 


If the definition of the function precedes a 
function reference in the same source file that 
references that function, the compiler checks 
that the number and type of the actual argu- 
ments in the function reference are consistent 
with those specified in the corresponding 
FUNCTION statement. Note also that the 
INTERFACE statement (described in Section 
5.3.34) can be used to ensure that subprogram 
calls have the correct number and type of 
arguments. 
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2.4 Data Types 


There are five basic types of data in Microsoft FORTRAN: 


1. Integer INTEGER, INTEGER*1, INTEGER «2, and 
INTEGER * 4) 


Real (REAL, REAL*#4, DOUBLE PRECISION, or REAL#8 
Complex (COMPLEX, COMPLEX #8, and COMPLEX #16 


Logical (LOGICAL, LOGICAL #1, LOGICAL *2, and 
LOGICAL +4) 


5. Character (CHARACTER] *#n], where 1 <= n <= 32,767) 


The data type of a variable, an array, an array element, a constant with a 
symbolic name, or a function can be declared in a specification statement. 
If the data type has not been declared, the compiler determines the data 
type of a name by its first letter (as described in Section 2.3.2, “Undeclared 
Names”). A type statement can also include dimension information and can 
be used to initialize variables and arrays. See Chapter 5, “Statements,” for 
detailed descriptions of type statements. 


The following sections (Sections 2.4.1 — 2.4.6) describe each data type. 
Memory requirements are shown in Table 2.1. 
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Table 2.1 


Memory Requirements 
Type Bytes Notes 


INTEGER 2 or 4 Defaults to 4 bytes. The 
: setting of the $STORAGE 
metacommand determines 
the size of INTEGER and 


LOGICAL values. 

INTEGER=<1 1 

INTEGER#2 2 

INTEGER *4 4 

REAL 4 Same as REAL #4. 

REAL+#4 4 

DOUBLE PRECISION 8 Same as REAL£8. 

REAL#8 8 

COMPLEX 8 Same as COMPLEX «8. 

COMPLEX «8 8 

COMPLEX #16 16 

LOGICAL 2 or 4 Defaults to 4 bytes. The 
setting of the $STORAGE 
metacommand determines 
the size of INTEGER and 
LOGICAL values. 

LOGICAL *1 l 

LOGICAL#2 2 

LOGICAL #4 4 

CHARACTER 1 CHARACTER and 
CHARACTER #1 are 
the same. 

CHARACTER <£En n Maximum n is 32,767. 
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2.4.1 Integer Data Types 


The integer data type is a subset of the integers. An integer value is an 
exact representation of the corresponding integer. Table 2.2 shows the dif- 
ferent types of integers, how many bytes of memory each type occupies, 
and the range of each type. Note that variables and functions declared as 
INTEGER are allocated as INTEGER *4, unless the $STORAGE 
metacommand is used to specify a 2-byte memory allocation. The 
S$STORAGE metacommand also determines the default storage size of 
integer constants. If the $;5TORAGE:2 metacommand is specified, for 
example, integer constants are 2 bytes long, by default. If, however, a 
constant is outside the INTEGER *2 range, that constant is given 4 
bytes of storage. 


Table 2.2 

Integers 

Data Type Bytes Range 

INTEGER*1 1 — 127 to 127 

INTEGER*#2. 2 — 32,767 to 32,767 

INTEGER*®4 4 ~ 2,147,483,647 to 
2,147,483,647 

INTEGER 2 or 4 Depends on setting of 

| $STORAGE 


Note that the range of values does not include the highest negative number 
_ that could be represented in the given number of bytes. The number — 128 
is out of the range of the INTEGER #*I data type, — 32,768 is out of the 
range of the INTEGER *2 data type, and — 2,147,483,648 is out of the 
range of the INTEGER «4 data type. These numbers are treated as unde- 
fined numbers, and may be used by the compiler for error checking. 


m Syntax 


By default, constants are interpreted in base 10. To specify a constant that 
is not in base 10, use the following syntax: 


[sign] [base] # leonstant 
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The sign is an optional plus or minus sign. The base can be any integer 
from 2 through 36. If base is omitted but # is specified, the integer is inter- 
preted in base 16. If both base and # are omitted, the integer is interpreted 
in base 10. For bases 11 through 36, the letters A through Z represent the 
base-10 numbers greater than 10. For base 36, for example, A represents 
10, B represents 11, C represents 12, and so on, through Z, which 
represents 35. Note that the case of the letters is not significant. 


= Example 


For example, the following seven integers are all assigned a value equal to 
3,994,575 decimal: 


2#1111001111001111001111 
7#45644664 

+8417171717 

#3CF 3CF 

+17#2DE110 

3994575 
ex = 36#2DM8F 


emo ACoI Re 


a 


on t to ou Ww oi 


A decimal point is not allowed in an integer constant. 


Integer constants must also be in the ranges specified above. However, 

for numbers with a radix other than 10, the compiler reads out-of-range 
numbers up to 2°“. They are interpreted as the negative numbers with the 
corresponding internal representation. For example, 16#FFFFFFFF 
results in an arithmetic value of —1. 


2.4.2 The Single-Precision IEEE Real Data Type 


The single-precision IEEE (Institute of Electrical and Electronics 
Engineers, Inc.) real data type (REAL or REAL *4) is a subset of the real 
numbers. A single-precision real value is normally an approximation of the 
real number desired and occupies 4 bytes of memory. The precision of this 
data type is between six and seven decimal digits. Note that you can specify 
more than six digits, but for a single-precision real number, only the first 
six decimal digits are significant. The range of single-precision real values 
includes the negative numbers from approximately — 3.4028235E + 38 to 

— 1.1754944E — 38, the number 0, and the positive numbers from approxi- 
mately +1.1754944E — 38 to + 3.4028235E + 38. 
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m= Syntax 
The form of a real constant is as follows: 


[sign ]linteger]L. fraction] Kexponent] 


Parameter Value 
sign A sign (+ or —). 
integer An integer. Either integer or fraction may be 


omitted, but not both. 
A decimal point. 


fraction A fraction part, consisting of one or more 
decimal digits. Either fraction or integer may 
be omitted, but not both. 


Eexponent An exponent part, consisting of an optionally 
signed one- or two-digit integer constant. An 
exponent indicates that the value preceding 
the exponent is to be multiplied by ten raised 
to the value exponent. 


= Example 


The following real constants all represent the same real number (one and 
twenty-three one-hundredths): 


+1.2300E0 .012300E2 1e2se0 Lesk=e 
+1.2300 eS, 0bse S000 123E+4 1230E-3 


2.4.3 The Double-Precision IEEE Real Data Type 


The double-precision real data type (REAL*8 or DOUBLE PRECISION) 
is a subset of the real numbers. This subset is larger than the subset for the 
single-precision real data type. A double-precision real value is normally an 
approximation of the real number desired, and occupies 8 bytes of memory. 
The precision is greater than 15 decimal digits. Note that you can specify 
more digits, but only the first 15 are significant. The range of double- 
precision real values includes the negative numbers from approximately 

— 1.797693134862316D + 308 to — 2.225073858507201D — 308, and the 
number 0. It also includes the positive numbers from approximately 

+ 2.225073858507201D — 308 to + 1.797693134862316D + 308. 
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A double-precision real constant has the same form as a single-precision 
real constant, except that the letter D is used for exponents instead of the 
letter E, and an exponent part is mandatory. If the exponent is omitted, the 
number is interpreted as a single-precision constant. The following double- 
precision real constants all represent fifty-two one-thousandths: 


5.2D-2 +.00052D+2 .052D0 52.000D-3 5S2D-3 


Note that a constant such as . 052 is treated as a single-precision value, 
because no exponent is specified. 


2.4.4 Complex Data Types 


The COMPLEX or COMPLEX *8 data type is an ordered pair of single- 
precision real numbers. The COMPLEX *16 data type is an ordered pair 
of double-precision real numbers. The first number in the pair represents 
the real part of a complex number, and the second number in the pair 
represents the imaginary part. Both the real and imaginary components 
of a COMPLEX or COMPLEX *8 number are REAL*4 numbers, so 
COMPLEX or COMPLEX *8 numbers occupy 8 bytes of memory. 

Both the real and imaginary components of a COMPLEX *16 number are 
REAL*8 numbers, so COMPLEX *16 numbers occupy 16 bytes of 


memory. 
= Syntax 
[sign] (real,tmag) 
Parameter Value 
sign A sign (+ or —). If specified, the sign applies 
to both real and imag. 
real An integer or real number, representing the 
real part. 
imag An integer or real number, representing the 


imaginary part. 
For example, the complex number (7,3.2) represents the number 


7.0+3.21. The number — (— .11E2,45F) represents the number 
11.0 — 95.01. 
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2.45 Logical Data Types 


The logical data type includes the two logical values, .TRUE. and 
.FALSE.. A LOGICAL variable occupies 2 or 4 bytes of memory, de- 
pending on the setting of the $STORAGE metacommand. The default 
is 4 bytes. The significance of a logical variable is unaffected by the 
$STORAGE metacommand, which functions primarily to allow compat- 
ibility with the ANSI requirement that logical, single-precision real, 
and integer variables are all the same size. 


LOGICAL #1 values occupy a single byte, which is either 0 (.FALSE.) or 1 
(.TRUE.). LOGICAL «2 values occupy 2 bytes: the least-significant (first) 
byte contains a LOGICAL #1 value; the most-significant byte is undefined. 
LOGICAL «4 variables occupy two words: the least-significant (first) word 
contains a LOGICAL *2 value; the most-significant word is undefined. 


2.4.66 The Character Data Type 


A character value is a sequence of one or more of the printable ASCII char- 
acters enclosed by a pair of apostrophes (’). 


Note 


An apostrophe is entered as a single right quotation mark (’), not a sin- 
gle left quotation mark (‘). Note that in the typeface used in examples, 
such as ‘string’, apostrophes look like this: %. 


The apostrophes that enclose the string are not stored with the string. 

To represent an apostrophe within a string, specify two consecutive apos- 
trophes with no blanks between them. Blank characters and tab characters 
are permitted in character constants and are significant. The case of alpha- 
betic characters is significant. The string can contain any printable charac- 
ters in the ASCII character set. You can use C strings (as described in Sec- 
tion 2.4.6.1) to define strings with nonprintable characters, or to specify the 
null string. 


The length of a character value is equal to the number of characters 
between the apostrophes. A pair of apostrophes counts as a single character. 
The length of a character variable, character array element, character func- 
tion, or character constant with a symbolic name must be between 1 and 
32,767. The length can be specified by any of the following: 
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e An unsigned integer constant in the range 1 — 32,767 
e An integer constant expression in parentheses 


@ An asterisk in parentheses: (*) —~ 
See Section 5.3.6, “The CHARACTER Statement,” for more information. 


Some sample character constants are listed below: 


String Constant 

POUL ng String 

*1234!@#F$ / 1234!@#¥$ 

‘Blanks count’ Blanks count 

‘Case [5 Significant’ Case ls Significant 
‘““Double" quotes count “’ "Double" quotes count 


Note that FORTRAN source lines are 72 characters long (characters in 
columns 73 — 80 are ignored by the compiler), and lines with less than 72 
characters are padded with blanks. Therefore, when a character constant 
extends across a line boundary, its value includes any blanks added to lines. 
For example, look at the following FORTRAN statement: 


heading (secondcolumn) = ‘Acceleration of Particles 
$from Group A’ 


That statement sets the array element heading (secondcolumn) to 
‘Accelerationof Particles from Group A’. 
There are 14 blanks between Particles and from because the word 
Particles ends in column 58 of the assignment statement, and 14 blanks 
are added to pad this line. 


When allocated in a common block, a character variable occupies 1 byte 

of memory for each character in the sequence. Character variables are 

assigned to contiguous bytes, independent of word boundaries. However, 

when character and noncharacter variables are allocated in the same com- 

mon block, the compiler assumes that noncharacter variables following 

character variables always start on word boundaries. See Section 5.3.8, aie 
“The COMMON Statement,” for more information on character variables 

in common blocks. 
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2.4.6.1 C Strings 


String values in the C language are terminated with null characters 
(CHAR(O)), and may contain nonprintable characters (such as the new line 
and backspace). These can be specified using the backslash character as an 
escape character, followed by a single character indicating the nonprintable 
character desired. This type of string can be specified in Microsoft FOR- 
TRAN by using a standard string constant followed by the character C. 
The standard string constant is then interpreted as a C-language constant. 
Backslashes are treated as escapes, and a null character is automatically 
appended to the end of the string (even if the string already ends in a null 
character). Table 2.3 shows the valid escape sequences. If a string contains 
an escape sequence that isn’t in the table (such as \z), the backslash is 
ignored. 


Table 2.3 


C String Escape Sequences 


Sequence Character 

\n New line 

\t Horizontal tab 
\v Vertical tab 

\b Backspace 

\r Carriage return 
\f Form feed 

7 Single quote’ 

ee Double quote 

\\ Backslash 

\ 000 Octal bit pattern 
\xhh Hexadecimal bit pattern 
\a Bell 


‘In FORTRAN you must enter \‘% ’ to indicate this escape 
sequence. 


The string must be a valid FORTRAN string, as described in Section 

2.4.6, “The Character Data Type.” Note that because the C string escape 
sequences are initially treated as FORTRAN strings, all quotation marks in 
the string itself must be double quotation marks (’ ’) produced by striking 
the single quote (apostrophe) key twice. The escape sequence \ ‘a produces 
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a syntax error because FORTRAN interprets the quotation mark as the end 

of a string. The correct form is \ ’ ‘a. C strings and ordinary strings differ 

only in how you specify the value of the string. The compiler, for example, 

treats both string types the same when padding or truncating a string on oe 
assignment. 


The sequences \ooo and \xhh allow any character in the ASCII character 
set to be given as a one- to three-digit octal or a one- to two-digit hexa- 
decimal character code. The o digit must be in the range 0—7, and the A 
digit must be in the range 0—F. For example, the C strings ’\010’C and 
“\x08’C both represent a backspace character followed by a null | 
character. 


The C string ‘\\abcd/’C is equivalent to the string ‘\abcd’, witha 
null character appended to the end. The string ''C represents the ASCII 
null character. Note that the character constant " is illegal because it 
has a length of 0, but '*C is legal because it has a length of 1. 


2.4.6.2 Character Substrings 


Substrings are of type character, and are used to access a contiguous part of 
a character variable. 


= Syntax 
variable ([first]:[last]) 
Parameter Description 


variable A character variable or an element in a char- 
acter array. 


first An arithmetic expression that defines the first 
(leftmost) character in the substring. The com- 
piler truncates first to an integer value. The 
default for first is 1, so if first is unspecified, 
the substring starts with the first character 
in the string. 


last An arithmetic expression that defines the last 
(rightmost) character in the substring. The 
compiler truncates Jast to an integer value. 
The default for last is the length of the string, 
so if last is unspecified, the substring ends 
with the last character in the string. 
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If the $STRICT metacommand is present, the use of a noninteger expres- 
sion for the first and /ast parameters causes an error. Note that variable(:) 
is equivalent to variable. The length of the substring is last—first+1. For 
example, for a 10-byte character variable named name that contains the 
string “Jane Doe ’, name(:5)is ‘Jane ’, name(5+1: )is 

‘Doe ’,and name(:)is ‘Jane Doe ’ 


Warning 


Where length is the length of the character variable, the following rela- 
tionships must be true: 


® first <= last 


For the 10-byte character variable name, for example, 
name(6:5) is not allowed. 


® 1 <= first <= length 


For example, name (0:4) and name(11:12) are not 
allowed. 


® 1 <= last <= length 


For example, name (:0) and name(:11) are not allowed. 


If the $DEBUG metacommand is on, an error is generated if these rela- 
tionships are not true. If $DEBUG is not on, the results are undefined. 


m= Example 


C This program writes the second half of 

C the alphabet, followed by the first half. 
CHARACTER alpha*26 
alpha=‘’abcdefghijklmnopqrstuvwxyz’ 
WRITE(*,*)alpha(14:),alpha(:13) 
END 
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2.5 Arrays 


The number of elements in an array is limited only by available memory. 
If, however, the $STRICT metacommand is specified, a warning is gen- 
erated if more than seven dimensions are used. To pelea an element 
of an array, use the following syntax: 


m Syntax 
array (subscripts) 
Parameter Value 


array | The name of the array. If the type of the array 
is not declared in a type statement, the array 
elements have the type indicated by the first 
letter of array. 


subscripts Subscript expression(s). If there is more than 
one subscript expression, they must be sep- 
arated by commas. The number of subscript 
expressions must be the same as the number 
of dimensions the array was declared with. For 
information on declaring arrays, see Section 
5.3.12, “The DIMENSION Statement.” 


Each subscript must be an arithmetic expres- 
sion. The result of the expression is converted 
to an integer by truncation. If the $STRICT 
metacommand is specified, each subscript 
must be an integer expression. Function ref- 
erences and array-element references are 
allowed. The value of subscripts can be posi- 
tive, negative, or 0. 


m= Examples 


C Examples of array-element references 
DIMENSION A(3,2), B(0:2,0:3), C(4,5), D(5,6), 


V(10),Q(3.2,4.5) 

FQUIVALENCE (X,V(1)),(Y,V(2)) 

D(I,J) = D(I+B(1,J),J)/PIVOT 

C(I+1,J) = C(I,J) + A(1*#*#2,K) * B(K+J,J—-24) 
READ(*,+*)(V(N),N=1,10) 
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Attributes allow additional information to be specified about a variable, 
variable type, subprogram, or subprogram formal argument. Attributes 
allow you, for example, to use the calling conventions of Microsoft C or 
Pascal, pass arguments by value or by reference, use segmented or unseg- 
mented addresses, specify that a formal argument can span more than one 
segment, or specify an external name for a subpregram or common block. 
Attributes can be used in subroutine and function definitions, after type 
declarations, and with the INTERFACE (see Section 5.3.34) and ENTRY 
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(see Section 5.3.20) statements. Table 2.4 summarizes which attributes can 
be used with different objects. See Sections 2.6.1 — 2.6.10 for information on 


each attribute. 


Table 2.4 


Objects to Which Attributes Can Refer 


Attribute 


ALIAS 

C 

EXTERN 
FAR 

HUGE 

NEAR 
PASCAL 
REFERENCE 
VALUE 
VARYING 


1 FAR and NEAR cannot be used in ENTRY statements. 


Variable and 
Array 
Declarations 


No 


Common- 
Block Names 


Subprogram 
Specification 
and 
EXTERNAL 
Statements 


Yes 
Yes 
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a Syntax 
[[attrs]] 


Attributes follow the object to which they refer. If more than one attribute 
is specified, they must be separated by commas. 


wg Examples 


C In the following example, the integer x 15 passed by 
C reference, using a short address (offset only). 


INTEGER xT REFERENCE ,NEAR] 
In the following example, f is a Pascal function with 


arguments i, j}, and k that are C integers. 
It also returns a C integer. 


(op ap i a) 


INTERFACE TO INTEGER Ec] FUNCTION f [PASCAL] (i,j,k) 
INTEGER (c] i,j,k 
END 


2.6.1 ALIAS 


This attribute allows you to specify an external name for a subprogram or 
common block. The name may differ from the name used in the declaration. 


@ Syntax 
ALIAS: string 
Parameter Description 


string A character constant (can be a C string, as 
described in Section 2.4.6.1). 


No transformations are performed on string. 
Lowercase letters, for example, are not con- 
verted to uppercase. This is useful when inter- 
facing with case-sensitive languages, such 

as C. 


Only the name specified in the subprogram’s declaration is available for 


referring to the subprogram inside the same source file. Only the name is 
available for referring to the subprogram outside the source file. 


om 
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You can also use the ALIAS attribute on an INTERFACE statement 
to redefine the name of a subprogram in another source file that you 
wish to call. 


The ALIAS attribute cannot be used on formal arguments. 


a Example 


C This SUBROUTINE statement gives the subroutine f the 
C name OtherNameForF outside of this source file. 


SUBROUTINE fLALIAS: ‘OtherNamef orf 7] 


2.6.2 C 


The C attribute can be applied to subprograms, common blocks, and types. 
When applied to a subprogram, the C attribute defines the subprogram as 
having the same calling conventions as a Microsoft C procedure. The follow- 
ing list indicates the differences between the FORTRAN/Pascal calling con- 
ventions and the C calling conventions: 


Difference Explanation 

The order in which Microsoft FORTRAN and Pascal push parame- 
parameters are ters on the stack in the order in which they 
pushed on the stack appear in the procedure declaration. Microsoft 


C, by default, pushes its parameters in the 
reverse order (to allow varying numbers of 


arguments). 
The location of code In Microsoft FORTRAN and Pascal, this code 
that restores the is in the called procedure. This produces less 
stack when a code than Microsoft C, in which this code fol- 
procedure returns lows the procedure call. 


Arguments to subprograms with the C attribute are passed by value unless 
the REFERENCE attribute is specified on the formal argument. (Note 
that the VARYING attribute can be specified only for subprograms that 
also have the C attribute.) The names of subprograms using the C attribute 
are modified automatically to make it easier to match naming conventions 
used in C. External names are changed to lowercase, and begin with an 
underscore (_). To use a name containing uppercase letters, use the ALIAS 
attribute (described in Section 2.6.1). 
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When the C attribute is applied to the INTEGER type, that type is a C 
integer. The default size for C and FORTRAN integers may or may not be 
the same, depending on which processor is being used. For example, on the 
8086 processor, Microsoft FORTRAN assumes 32-bit integers by default, 
while C assumes 16 bit. On other machines, however, both languages may 
assume 32-bit integers. So when you compile your program for a particular 
processor, you can use the C attribute on integer variables you want to pass 
between FORTRAN and C to make sure the compiler uses the right size. 


The C attribute cannot be used on formal arguments, except when the attri- 
bute is applied to the INTEGER type, as in the following: 


INTEGER[Clargument 


2.6.3 EXTERN 


The EXTERN attribute can be used in variable declarations. It indicates 
that the variable is allocated in another source file. EXTERN must be used 
when accessing variables declared in other languages, and must not be used 
on formal arguments. 


2.6.4 FAR 


The FAR attribute, when used with formal arguments, specifies that the 
argument is to be passed using a segmented address. When used with vari- 
ables, it specifies that the variable is allocated in far data areas. 


2.6.5 HUGE 


The HUGE attribute is a convenient way to specify that a formal argument 
may span more than one segment. The $LARGE metacommand specifies 
the same thing. The following two program fragments, for example, are 
identical: 


FUNCTION F 


(ALHUGE]) 
DIMENSION A( 


200) 


$LARGE: A 
FUNCTION F(A) 

DIMENSION A(200) 

The compiler does not ensure that HUGE is specified for all arguments that 
span more than one segment. Versions 3.3 and earlier of Microsoft Pascal 
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and Versions 3.0 and earlier of Microsoft C do not support parameters with 
HUGE attributes. 


2.6.6 NEAR 


The NEAR attribute specifies that the actual argument is in the default 
data segment and that only its offset is passed to the subprogram. To pass a 
var parameter to Microsoft Pascal, specify both the REFERENCE and the 
NEAR attributes. 


This attribute can also be used with common blocks. Common blocks having 
the NEAR attribute are mapped into the default data segment. The follow- 
ing syntax is used: 


COMMON [/[name][NEAR]/ J... 


The parameter name is the name of the common block. When no name is 
specified, all blank common blocks are put in the default data segment. 
NEAR must be specified for at least the first definition of the common 
block in the source file. You can, however, specify NEAR for any of the 
COMMON statements in a subprogram. 


To make a common block near, specifying NEAR for all definitions of the 
common block is good programming practice. If, however, you are modifying 
an existing program, it can be easier to add a subroutine at the beginning 
of your source file to make common blocks near in the remainder of the 
program. 


The advantage of putting common blocks in the default data segment is 
that you can specify addresses with offsets only. This generates smaller, 
more efficient code. If you do not specify NEAR, the compiler uses seg- 

mented addresses to refer to everything in common blocks. 


If a common block is specified as near in one compiland, but not in another, 
it will be mapped into the default data segment. The compiland which 
recognizes it as near will use short addresses, and the other compiland will 
use long addresses. While this practice is not recommended, it does provide 
compatibility with libraries compiled with Version 3.2 of the compiler. 
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Actual arguments passed to a near formal argument must be in the default 
data segment. You cannot pass any of the following to a near argument: 


Data in common blocks that are not specified as NEAR 
Arrays specified as HUGE 
Arrays defined while the $LARGE metacommand is in effect 


Variables named in a $LARGE metacommand 


2.6.7 PASCAL 


The PASCAL attribute can be used with subprograms, common blocks, and 
formal arguments of the current subprogram. The PASCAL attribute can- 
not be used on formal arguments. This attribute identifies an argument or 
subprogram as having the characteristics of Microsoft Pascal: 


@ The argument or the subprogram’s arguments are passed by value 
(unless the REFERENCE attribute is specified). 


@® Microsoft FORTRAN’s calling conventions are still used. 


2.6.8 REFERENCE 


The REFERENCE attribute can only be used on formal arguments of the 
current subprogram. The REFERENCE attribute specifies that the argu- 
ment’s location in memory 1s to be passed, rather than the ereumeny S 
value. This is called passing by reference. 


2.6.9 VALUE 


The VALUE attribute can only be used on formal arguments of the current 
subprogram. The VALUE attribute specifies that the actual argument’s 
value is to be passed. This is called passing by value. Although assignment 
to the formal argument is still permitted; values cannot be returned 
through the argument. Items passed to arguments with the VALUE aitri- 
bute can be of different data types. If type conversion is necessary, it is per- 
formed before the call, following the rules discussed in Section 2.7.1.2, 
“Type Conversion of Arithmetic Operands.” If either C or PASCAL is 
specified on the subprogram definition, all the arguments are assumed to 
have the VALUE attribute. Character values, substrings, assumed-size 
arrays, and adjustable-size arrays cannot be passed by value. 
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In C, arrays are never passed by value. If you specify the C attribute and 
your subprogram has an array argument, the array will be passed as if it 
were a C data structure (struct). To pass an array and have it treated as 
an array (instead of as a struct), you can do one of two things: 


1. Use the REFERENCE attribute on the formal argument. 


2. Pass the result of the LOC, LOCNEAR, or LOCFAR functions 
by value. 


= Example 


C In the following example, the integer x is passed by 
C value. 


SUBROUTINE Y(XCVALUE]) 
INTEGER xT VALUE] 


2.6.10 VARYING 


In FORTRAN, a formal argument must be defined for each actual argu- 
ment. Some other languages, however, such as C, allow actual arguments 
for which no formal arguments are defined. These actual arguments are 
assumed to be passed by value, with no automatic data-type conversions. 
When the C attribute is specified you can also specify the VARYING attri- 
bute. It means that the number of actual arguments may be different from 
the number of formal arguments. Actual arguments for which a formal 
argument is defined must follow the type rules. 


When writing a FORTRAN procedure with the VARYING attribute, make 
sure that your code only executes references to arguments you passed in the 
call, or you will get undefined results. 


Note that the FORTRAN/Pascal calling sequence cannot support varying 


numbers of arguments; the VARYING attribute has no effect unless you 
have also specified the C attribute on the subprogram. 
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2.7 Expressions 


An expression is a formula for computing a value. Expressions consist of 
operands and operators. The operands can be function invocations, vari- 
ables, constants, or other expressions. The operators specify the actions to 
be performed on the operands. In the following expression, for example, 
the slash (/) is an operator and chickens and coops are operands: 


chickens/coops 
There are four kinds of expressions in FORTRAN: 


1. Arithmetic expressions 
2. Character expressions 
3. Relational expressions 


4. Logical expressions 


Each type of expression works with certain types of operands and uses a 
specific set of operators. Evaluation of an expression produces a value of a 
specific type. 


Expressions are components of statements. In the following example, the 
entire line is a statement; only the portion after the equal sign (=) is an 
expression: 


cost = 10.95*chickens/coops 


Any variable, array element, or function that is referred to in an expression 
must be defined at the time the reference is made, or you will receive unde- 
fined results. Integer variables must be defined with an arithmetic value, 
rather than a statement-label value set by an ASSIGN statement. FOR- 
TRAN only guarantees that expressions generate correct values, not that 
all parts of expressions are evaluated. For example, if you use an expres- 
sion that multiplies (37.8/scale**expo + factor) by zero, then 
(37.8/scale**expo + factor) may not be evaluated. Similarly, if 
a false value and another expression are operands of the .AND. operator, 
that expression may not be evaluated. In the following expression, for 
example, the expression (SWITCH.EQ.ON) may not be evaluated: 


((3.LE.1) .AND. (SWITCH.EQ.ON)) 
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An arithmetic expression produces a value that is an integer or a real or 
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complex number. The basic operands used in arithmetic expressions are 


The value of a variable or array element must be defined before it can be 


Arithmetic constants 
Symbolic names for arithmetic constants 
Variable references 

Array-element references 


Function references 


referenced in an arithmetic expression or you will receive undefined results. 


Moreover, the value of an integer variable must be defined with an arith- 


metic value, rather than a statement-label value previously set in an 


ASSIGN statement. 


Other arithmetic expressions are built up from the basic operands in the 
preceding list using parentheses and the arithmetic operators shown in 


Table 2.5. 


Table 2.5 


Arithmetic Operators 


Operator 


au 


/ 


* 


Operation 


E:xponentiation 
Division 
Multiplication 


Subtraction (binary) 
or negation (unary) 
Addition (binary) or 
identity (unary) 


Precedence 


1 (highest) 
2 
2 
3 


All of the arithmetic operators may be used as binary operators, which 
appear between two operands. The plus and minus operators can also be 
used as unary operators, which precede their single operands. 
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When consecutive operations are of equal precedence, the leftmost operation 
is performed first. For example, the expression first/second*third 
is equivalent to (first/second)*third. There is one exception to 
this rule: exponentiation. When there are two consecutive exponentiation 
operations, the rightmost operation is performed first. For example, the fol- 
lowing expressions are equivalent: 


first**second**third 
first**(second**third) 


FORTRAN prohibits two arithmetic operators from appearing consecutively. 
For example, FORTRAN does not allow first**-second, but it does 
permit first**(-second). 


Use parentheses in expressions to control the order in which operators are 
evaluated. The following list shows some examples of precedence of arith- 
metic operators: 


Expression | Equivalent Expression 
-one*#*two -(one**two) 

+x/y +(x/y) 
area/g-qu**2**factor (area/g)-(qut*(2**factor) ) 


The following arithmetic operations are prohibited: 


® Dividing by 0 
@ Raising a 0-value operand to a negative power 


e Raising a negative-value operand to a nonintegral real power 


2.7.1.1 Integer Division 

When two integers are divided, the result is the mathematical quotient of 
the two values, truncated. Thus, 7/3 evaluates to 2, (— 7) /3 evaluates to 
—2, and both 9/10 and 9/ (—10) evaluate to 0. 


For example, look at the following assignment statement: 


X= 1/4 + 1/4 + 1/74 + 174 
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First, note that division has higher precedence than addition, so the expres- 
sion is equivalent to (1/4) + (1/4) + (1/4) + (174). Then, take 
the quotient of 1/4 and truncate toward 0. The result of integer division of 
1 by 4 is 0. Therefore, the assignment statement sets X equal to 0. 


2.7.1.2 Type Conversion of Arithmetic Operands 


When all operands of an arithmetic expression are of the same data type, 
the value returned by the expression is also of that type. When the oper- 
ands are of different data types, the data type of the value returned by the 
expression is the type of the highest-ranked operand. The exception to the 
rule is operations involving both REAL*8 numbers and COMPLEX *8 
numbers, which yield COMPLEX * 16 results. 


The ranking of arithmetic operands is as follows: 


COMPLEX * 16 (highest rank) 
COMPLEX «8] 

REAL#*8 or DOUBLE PRECISION 
REAL| * 4] 

INTEGER+«4 

INTEGER #2 

INTEGER ¥1 (lowest rank) 


ce er EN ee ee GE ie 


For example, when an operation is performed on an INTEGER * 2 operand 
and a REAL*#4 operand, the INTEGER = 2 is first converted to REAL *4. 
The result of the operation is also a value of data type REAL*4. Similarly, 
if you perform an operation on a real number and a complex number, the 
real number is first converted to a complex number, and the result of the 
operation is also complex. 


The following list shows some examples of how expressions are interpreted. 


The variables i1 and i2 are integers, r1 and ré@ are single-precision real 
numbers, and c1 and c2 are COMPLEX*8 numbers. 
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Statement Interpretation 


re =i1/i2*r First, integer division (as described in Section 
2.7.1.1) is performed on i1 and i2. Then the 
result is converted to a real number and real 
multiplication is performed on the resulting 
operand and r1. 


cl=cetil The integer i1 is first converted to type 
COMPLEX*8. Then i1 is added to c2. 


For expressions with integer operands, note that the type of the result is 
the maximum of the operand precisions and the setting of the $STORAGE 
metacommand. For example, if you declare J and K as INTEGER * 2 vari- 
ables, and don’t set the $STORAGE metacommand, the result of the ex- 
pression J + K is an INTEGER «4. Since the default for $STORAGE is 4, 
the maximum of the operand precisions (both are 2 bytes) and the setting of 
the $STORAGE metacommand (which defaults to 4 bytes) is 4 bytes. 


For information on passing integers as arguments, see Section 3.6, 
“Arguments.” 


Note also that the compiler usually removes higher-precision arithmetic 
when optimizing, if it will not affect the result, and if SDEBUG is not set. 
For example, if $DEBUG is not set, the arithmetic in the following exam- 
ple is probably 16-bit arithmetic, even if $STORAGE:4 was specified: 


INTEGER*2 1,J,K 
T=J+K 


Using $STORAGE:4 does not affect INTEGER *2 expressions which have 
only the plus (+), minus (—), or multiplication (*) operators in them. The 
results are the same in either 16- or 32-bit arithmetic, since any overflows 
that occur are ignored if $DEBUG is not set. Table 2.6 shows how arith- 
metic operands are converted from one data type to another. For example, 
to see how a REAL #8 number is converted to a REAL*4 number, first 
find REAL#8 in the “Data Type” column. Now look under “Converting to 
the Next-Lower-Ranked Data Type.” REAL*8 numbers are converted to 
REAL #4 numbers by rounding off the least-significant part. 
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Arithmetic Type Conversion 


Data Type 


COMPLEX * 16 
(highest rank) 


COMPLEX *8 


DOUBLE PRECISION 


REAL *4 
INTEGER *4 


INTEGER *2 


INTEGER#1 
(owest rank) 


Converting to the 
Next-Higher-Ranked 
Data Type 


Convert imaginary and 
real parts, individually, 
from REAL £4 to 
REAL<¢8. 


Convert from DOUBLE 
PRECISION to 
REAL *4, and add a 0.0 
imaginary part.” 


Store in the DOUBLE 
PRECISION format. 


Add zero fractional part. 


Use as least-significant 
part, and set sign bit in 
most-significant part. 


Use as least-significant 
part, and set sign bit in 
most-significant part. 
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Converting to the 
Next-Lower-Ranked 
Data Type 


Convert imaginary and 
real parts, 
individually, from 
REAL#8 to 
REAL«4.° 


Delete imaginary part. 


Round off least- 
significant part. 


Truncate. 


Use least-significant 
part. 


Use least-significant 
part. 


4 REAL #8 numbers are converted to COMPLEX #16 by adding a 0.0 imaginary part, and 
COMPLEX #16 numbers are converted to REAL #8 by deleting the imaginary part. They are 
not first converted to COMPLEX *8 numbers. 


2.7.2 Character Expressions 


A character expression produces a value that is of type character. There are 


five basic operands used in character expressions: 


1. Character constants 


2. Character variable references 
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3. Character array-element references 
4. Character function references 
5. Character substrings a 


There is only one character operator: the concatenation operator (/ /). 
The operator is used as follows: 


first/ / second 


This produces a character string whose value is the value of first con- 
catenated on the right with the value of second and whose length is the 
sum of the lengths of first and second. For example, the following expres- 
sion produces the string “ABCDE ’: 


"ABS // ‘CDE’ 

If you concatenate C strings, remember that a null character (\Q) is 
automatically appended to the end of each C string. For example, look 
at the following expression: 

“hello ‘C // ‘world’C 


It is equivalent to the following C string: 


‘hello \OQworld’C 


2.7.3. Relational Expressions 


Relational expressions compare the values of two arithmetic or character 
expressions. If an arithmetic expression is compared with a character 
expression, the arithmetic expression is considered to be a character expres- 
sion. If the $STRICT metacommand is specified, you cannot compare an 
arithmetic variable with a character variable. Comparison of arithmetic 
and character variables is prohibited by the ANSI standard. 


The result of a relational expression is of type LOGICAL. Relational 


expressions can use any of the operators shown in Table 2.7 to compare 
values. 
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Table 2.7 


Relational Operators 


Operator Operation 

LT, Less than 

.LE. Less than or equal to 
EQ. Equal to 

NE. Not equal to 

GT. Greater than 

GE. Greater than or equal to 


All of the relational operators are binary operators and appear between 
their operands. There is no relative precedence or associativity among the 
relational operands. This is because a relational expression cannot contain 
another relational expression. For example, look at the following program 
fragment: 


C THIS IS INCORRECT 
REAL*4 4,B,C 
IF((A .LT. B) .NE. C) D=12 


Assume that A is less than B. After the first part of the expression is 
evaluated, the expression is as follows: 


-TRUE. .NE. C 


But C is an arithmetic expression, and you cannot compare an arithmetic 
expression to .TRUE.. To compare relational expressions and logical values, 
use the logical operators (discussed in Section 2.7.4). 


Relational expressions with arithmetic operands may have one operand 
that is an integer and one that is a real number. In this case, the integer 
operand is converted to a real number before the relational expression is 
evaluated. You can also have a complex operand, in which case the other 
operand is first converted to complex. However, you can use only the .NE. 
and .EQ. operators with complex operands. 


Relational expressions with character operands compare the position of 
their operands in the ASCII collating sequence. An operand is less than 
another if it appears earlier in the collating sequence. For example, 
(7ABCDEFG’.LT.‘’BCDEFGH’ ) returns the value .TRUE., and 
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(‘Keith’ .GE. ’Susan’ ) returns the value .FALSE.. If operands of 
unequal length are compared, the shorter operand is extended to the length 
of the longer operand by the addition of blanks on the right. 


2.7.4 Logical Expressions 


A logical expression produces a logical value. There are five basic operands 
used in logical expressions: 

Logical constants 

Logical variable references 

Logical array-element references 


Logical function references 


oa ee 


Relational expressions 


Other logical expressions are built up from the basic operands in the 
preceding list by using parentheses and the logical operators of Table 2.8. 


Table 2.8 


Logical Operators 


Operator Operation Precedence 
NOT. Negation 1 (highest) 
AND. Conjunction yi 

OR. Inclusive disjunction 3 

EQV. Equivalence 4 

NEQV. Nonequivalence 4 


The .AND., .OR., .EQV., and .NEQV. operators are binary operators and 
appear between their logical expression operands. The .NOT. operator is 
unary and precedes its operand. If switch, for example, is .TRUE., then 
(.NOT. switch) is .FALSE.. 


When two consecutive operations are of equal precedence, the leftmost 
operation is performed first. 
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Two .NOT. operators cannot be adjacent to each other, but the .NOT. 
operator can appear next to any of the other logical operators. The following 
statement, for example, is allowed: 

logvar = a .AND. .NOT. 6b 
Logical operators have the same meaning as in standard mathematical 
semantics; the .OR. operator is nonexclusive. For example, 
. TRUE. 


.TRUE. .OR. 


evaluates to the value .TRUE.. Table 2.9 shows the values of logical expres- 
sions. 


Table 2.9 


Values of Logical Expressions 


If Operands a Then These Expressions Evaluate as Follows: 


and b Are the 


Foliowing: a .AND. b a .OR. b a .EQV. b a .NEQV. b 
Both true True True True False 

One true and False True False True 

one false 

Both false False False True False 


= Example 


The following program fragment demonstrates precedence in logical 
expressions: 


LOGICAL stop, go, wait, a, b, c, d, e 


C The 
C The 


C The 


following two statements 


stop = a .AND. bB-~ .AND. 
stop = (a .AND. b) .AND. 
following two statements 
Go.= -NOT. a  .QR. b 
go = ((.NOT. a) .GR. b) 
following two statements 
wait = ».NOT. a .EQV. 
wait = ((.NOT. a) .EQV. 


are equivalent: 


are equivalent: 

AND. c 

AND. c 

are equivalent: 

Bb wD x -NEQV. od .AND. 
(b .OR. c)) .~.NEQV. (d . AND. 


e 
e) 
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2.7.5 Precedence of Operators 


When arithmetic, character, relational, and logical operators appear in the 
same expression, precedence is as follows: 

Arithmetic operators have the highest precedence. 

Character operators are evaluated next. 


Relational operators are evaluated next. 


rw NP 


Logical operators have the lowest precedence. 
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3.1 Introduction 


Program Structure 


This chapter explains how to structure your FORTRAN programs. First it 
discusses the format of programs. Then it explains arguments and describes 
the types of program units available in FORTRAN. 


3.2 Lines 


Lines in a FORTRAN program are also called source records or cards. 
Lines are composed of sequences of characters. Characters are interpreted 
differently depending on what column they are in, as shown in the 


following list: 


Column 
1-5 

6 

7-72 


73 and above 


Character Interpretation 


Statement label. A dollar sign ($) in column 1 
indicates a metacommand. An asterisk or an 
uppercase or lowercase C in column 1 indi- 
cates a comment line. 


Continuation character. 
FORTRAN statement. 
Ignored. 


Lines shorter than 72 characters are padded with blanks. 


There are five kinds of lines in Microsoft FORTRAN: 


Type of Line 


Comment lines 


Description 


A comment line has an uppercase or lowercase 
C or an asterisk (*) in column 1, or the line is 
entirely blank. Comment lines do not affect 
the execution of the FORTRAN program in 
any way. Comment lines can appear within 
statements that have continuation lines. Note 
that debug lines, described below, are some- 
times treated as comment lines. For more 
information, see Section 6.2.1, “The $DEBUG 
and $NODEBUG Metacommands.” The follow- 
ing are examples of comment lines: 
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a2 


Initial lines 


Metacommand 


Continuation lines 


Debug lines 


C This is a comment line, 
* and so is this. 


An initial line of a statement has either a 
blank or a zero in column 6, and has either 
blanks or a statement label in columns 1 
through 5. 


Except for the statement following a logical 
IF, all FORTRAN statements begin with an 
initial line. The following are initial lines: 


GOTO 100 

00002 CHARACTER*10 name 
100 OCONTINUE 
1000STQP ’% % 


A metacommand line has a dollar sign ($) in 
column 1. 


Metacommands control the operation of the 
Microsoft FORTRAN Compiler. The following 
lines are metacommands: 


$DEBUG 
$LINESIZE:132 


See Chapter 6 for more information on 
metacommands. 


A continuation line is any line having blanks 
in columns 1 through 5 and a character (other 
than a blank or a zero) in column 6. A con- 
tinuation line increases the amount of room in 
which to write a statement. A statement may 
be extended to include as many continuation 
lines as memory allows. If the $STRICT 
metacommand is set, a warning is generated if 
more than 19 consecutive continuation lines 
are used. The second line below is a continua- 
tion line: 


INTEGER*4 count, popu, local, 
tovrflo, inecrs, provne 


A debug line contains any uppercase or lower- 
case alphabetic character, except C, c, and the 
dollar sign, in column 1. If the $DEBUG 
metacommand specifies the character that is 


Program Structure 


in column 1 of a debug line, that character is 
treated as a blank character and the line is 
compiled like any other line. If the $DEBUG 
metacommand does not specify the character 
that is in column 1, that line is treated like a 
comment line. See Section 6.2.1 for more infor- 
mation on debug lines. The following lines are 
debug lines: 


B RETURN 1 
z WRITE(*,*) count 


3.0 Statement Labels 


Any statement can start with a label; however, only the labels of executable 
or FORMAT statements can be referenced. A statement label is a sequence 
of one to five digits, at least one of which must be nonzero. A label may be 
placed anywhere in columns 1 through 5 of an initial line, and blanks and 
leading zeros are not significant. Each labeled statement in a source file 
must have a unique label. 


3.4 KFree-Form Source Code 


By specifying the $F REEFORM metacommand, you can enter your source 
code in the free-form format. Most of the rules specified in Section 3.2, 
“Lines,” do not apply to the free-form format. The following rules define 
the free-form format: 


@ A double quotation mark (°") in column 1 indicates a comment line. 
@ Initial lines may start in any column. 


@ The first nonblank character of an initial line may be a digit: the 
first digit in a statement label. The statement label may be from 
one to five decimal digits; blanks and leading zeros are ignored. 
Blanks are not required to separate the statement label from the 
first character of the statement. 


@ Ifthe last nonblank character of a line is a minus sign, it is dis- 
carded and the next line is taken to be a continuation line. The 
continuation line may start in any column. 


do 
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@ Alphabetic characters and asterisks are not allowed as comment 
markers in column 1. 


See Section 6.2.5, “The $FREEFORM and $NOFREEFORM Metacom- 
mands,” and the Microsoft FORTRAN Compiler User’s Guide for more 
information on free-form format. 


3.5 Order of Statements and Metacommands 


Statements describe, specify, and classify the elements of your program, as 
well as the actions your program will take. Chapter 5, “Statements,” defines 
each Microsoft FORTRAN statement. 


The ANSI standard for the FORTRAN language enforces a certain ordering 
of the statements and lines that make up a FORTRAN program unit. Some 
of Microsoft FORTRAN’s extensions have additional requirements. Figure 
3.1 shows which statements and metacommands must precede, and which 
must follow, any specific statement or metacommand. 
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= , : 
$DO66, $INOJFLOATCALLS, $[NOJFREEFORM, $STORAGE l 


BLOCK DATA, FUNCTION, INTERFACE, PROGRAM, SUBROUTINE | 
i ee | 
| IMPLICIT | | 
| 
| sINOJDECLARE, 
EQUIVALENCE, INCLUDE 


| 
| 
| 
| 
| 
$[NOTILARGE,| EXTERNAL, PARAMETER| | $LINESIZE, 
| | $INOJLIST, 
| $MESSAGE, 
| |$PAGE, 
| | $PAGESIZE, 
) | SINOTISTRICT, 
$SUBTITLE, 
| STITLE, 
$[NOJTRUNCATE 


SAVE; type 
statements; also 
$] NOTILARGE, 
when used with 
arguments 


without 
arguments 


ENTRY, 
FORMAT 


| | 
| | 
| | 
| | 
ahencnesd | INTRINSIC, | 
| | 
| | 
| | 
| | 


| Statement-function | 
| statements | 


Executable statements 


| 

| | 
| | 
| 
| | 
| | 
| | 
| | 
| | 


Figure 3.1 Order of Statements and Metacommands 


Suppose you have a program that contains program elements a and 6b. In 
Figure 3.1, if the box containing program element a is above the box con- 
taining program element 6, then a must appear before 6 in your program. 
IMPLICIT, for example, is above COMMON, DATA, END, and so on. 
So, if you have an IMPLICIT statement in your program, it must appear 
before any of those statements. 


If, in Figure 3.1, a is in a box that is to the left or right of 6, then a and 6 
can appear in any order relative to each other. FORMAT, for example, is 
to the left of the box containing most of the metacommands, and is to the 
right of the box containing PARAMETER, IMPLICIT, COMMON, 
statement-function statements, DATA, and so on. Thus, in your program, 
any of those elements can appear before or after a FORMAT statement. 


533) 


Microsoft FORTRAN Compiler Language Reference 


The following rules summarize the required order of statements and 
metacommands shown in Figure 3.1: 


06 


Every program unit must have an END statement as its last line. 


Comment lines can appear anywhere, except after the last END 
statement in a source file. 


BLOCK DATA, FUNCTION, INTERFACE, PROGRAM, and 
SUBROUTINE statements must precede all other statements. 
They do not have to precede metacommands. 


All specification statements must precede all DATA statements, 
statement-function statements, and executable statements. See Sec- 
tion 5.2, “Categories of Statements,” for listings of specification 
statements and executable statements. 


IMPLICIT statements must precede other specification statements, 
with the exception of the PARAMETER statement. 


Statement-function statements must precede executable statements. 


When a specification statement defines the type of a constant to be 
used in the PARAMETER statement, the PARAMETER state- 
ment must follow that specification statement. The PARAMETER 
statement must precede all other specification statements that use 
the symbolic constants it defines. 


INTERFACE statements must precede references to the subpro- 
grams they define. 


The $DO66, $[.NOJFLOATCALLS, $[NO]JFREEFORM and 
$STORAGE metacommands, if present, must appear before any- 
thing else. $LARGE and $NOTLARGE, when used without argu- 
ments, cannot appear within the executable statement section. 
$LARGE and $NOTLARGE, when used with arguments, must 
appear in the declarative section. Other metacommands can appear 
anywhere. 


Block-data subprograms may not contain statement-function state- 
ments, FORMAT statements, or executable statements. 
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3.6 Arguments 


Arguments are values passed to and from functions and subroutines. A for- 
mal argument is the name by which an argument is known within a func- 
tion or subroutine. An actual argument is the specific variable, expression, 
array, or other item passed to a subroutine or function at any specific call- 
ing location. 


By default, arguments pass values into and out of subroutines or functions 
by reference; that is, they pass the memory address of the argument. You 
can use the VALUE attribute (described in Section 2.6.9) to pass argu- 
ments by value. The number of actual arguments must be the same as the 
number of formal arguments (unless the VARYING attribute, described 

in Section 2.6.10, is specified), and the corresponding types must agree. 
Defining a subroutine or function prior to its first use, or using the 
INTERFACE statement (described in Section 5.3.34), causes the compiler 
to check for the correct number and type of arguments. Otherwise, the com- 
piler uses the arguments that are given the first time the subroutine or pro- 
cedure is executed to determine the number and type of arguments. Note 
that the compiler can detect incorrect matching between actual and formal 
argument types only if the type of the formal argument is known. 


Upon entry to a subroutine or function, the actual arguments are associated 
with the formal arguments. This association remains in effect until execu- 
tion of the subroutine or function is terminated. If the actual argument has 
been passed by reference (the default), assigning a value to a formal argu- 
ment during execution of a subroutine or function can alter the value of the 
corresponding actual argument. 


If an actual argument is a constant, a function reference, or an expression 
other than a single variable, assigning a value to the corresponding formal 
argument is not permitted and has unpredictable results. In the following 
program, for example, the actual argument header is a constant and 
corresponds to the formal argument title. In the subroutine report, 
a value is assigned to title: 
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C This program is incorrect and has unpredictable 
C results. 
character*20 header 
real*4 grav 
C header i5 a constant 
parameter (header = ‘Specific Gravity’) 
data grav /2.8327/ 
write (*,*) header, grav 
C header is an actual argument 
call report (header, grav) 
write (*,*) header, grav 
stop % ° 
end 
C The formal argument corresponding to header is title 
subroutine report (title, data) 
character*#20 title 
real*4 data 


C The following statement is illegal because it assigns 
C a value to a formal argument that corresponds to 
C a constant 

title = “Density (kg/cubic m}’ 

write (*,*) title, data 

return 

end 


The output of the above program is unpredictable. To change the value 
of title in the subroutine, header could have been made a variable, 
instead of a constant. 


If an actual argument is an expression, it is evaluated just before the asso- 
ciation of formal and actual arguments. If an actual argument is an array 
element, its subscript expressions are also evaluated just before the associa- 
tion. The subscript expressions remain constant throughout the execution of 
the subroutine or function, even if they contain variables that are redefined 
during the execution of the subroutine or function. 


The following list indicates how you can associate actual and formal 
arguments: 


Actual Argument Formal Argument 
A variable, an array element, or an Variable name 
expression. 

An alternate-return specifier (*7) in the An asterisk (*) 


CALL statement. See Section 5.3.5 for an 
explanation of alternate-return specifiers. 
Note that a formal argument that is an 
alternate return is repeatable. 
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An array or an array element. The number Array name 
and size of dimensions in a formal argument 

may be different from those of the actual 

argument, but any reference to the formal 

array must be within the limits of the 

memory sequence in the actual array. Note 

that a reference to an element outside these 

bounds is not detected as an error, and the 

results of an out-of-bounds subscript are 

unpredictable. 


A formal argument may also be associated with an external subroutine, 
function, or intrinsic function if it is used in the body of the subroutine 

or function as a subroutine or function reference, or if it appears in an 
EXTERNAL statement. A corresponding actual argument must be an 
external subroutine or function, declared with the EXTERNAL statement, 
or an intrinsic function permitted to be associated with a formal subroutine 
argument or function argument. The intrinsic function must have been 
declared with an INTRINSIC statement in the program unit where it is 
used as an actual argument. The following intrinsic functions may not be 
associated with formal subroutine arguments or function arguments: 


AMAX0 DMIN1 INT LLT MIN 
AMAX1 DREAL INT1 LOC MINO 
AMINO EOF INT2 LOCFAR MIN1 
AMIN1 FLOAT INT4 LOCNEAR REAL 
CHAR HFIX INTC LOG SNGL 
CMPLX ICHAR J FIX LOG10 

DBLE IDINT LGE MAX 

DCMPLX IFIX LGT MAX0 


DMAX]1 IMAG LLE MAX1 


When passing integer arguments, note that an INTEGER #2 variable can- 
not be passed to a formal INTEGER *4 argument, and an INTEGER *4 
variable cannot be passed to a formal INTEGER *2 argument. You can 
convert the data type using the intrinsic functions INT4 or INT2 (described 
in Section 3.11.3.1), but the result is an expression and the subroutine can- 
not assign anything to the argument. Also, note that when $STORAGE:4 
(the default) is in effect, even expressions with only INTEGER * 2 argu- 
ments have a result with type INTEGER *4. The following program, for 
example, results in an error: 


59 


Microsoft FORTRAN Compiler Language Reference 


C This is incorrect and produces an error: 
SUBROUTINE S(1I) 
INTEGER#2 I 


END 

INTEGER*2 J,K 
CALL S({J+K) 
END 


The error is returned because J+K is of type INTEGER*+*4. You must write 
the subroutine call as: | 


CALL S(INT2(J+K) ) 


Integer arguments that are passed by value are not subject to the same 
restrictions. The conversion rules for value arguments are the same as the 
conversion rules for assignment, described in Section 5.3.2, “The Assign- 
ment Statement.” For example, you can pass a real value to an integer 
argument. 


If the definition of a subprogram precedes a CALL statement or function 
reference in the same source file that references that subprogram, the com- 
piler checks that the number and type of the actual arguments in the 
CALL statement or function reference are consistent with those specified 
in the corresponding SUBROUTINE or FUNCTION statement. Note also 
that the INTERFACE statement (described in Section 5.3.34) can be used 
to ensure that subprogram calls have the correct numbers and types of 
arguments. 


3.7 Program Units 


The Microsoft FORTRAN Compiler processes program units. A program 
unit can be a main program, a subroutine, a function, or a block-data sub- 
program. You can compile any of these units separately and link them 
together later. It is not necessary to compile or recompile them as a whole. 
The following list summarizes the four types of program units (discussed 
in Sections 3.8 through 3.11): 
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Main program 


Subroutine 


Block-data 
subprogram 


Function 


Program Structure 


Description 


Any program unit that does not have a 
FUNCTION, SUBROUTINE, or BLOCK 
DATA statement as its first statement. A 
main program can have a PROGRAM state- 
ment as its first statement, but this is not 
required. 


A program unit that can be called from other 
program units by a CALL statement. 


A program unit that provides initial values for 
variables in named common blocks. 


A program unit that can be referred to in an 
expression. 


External functions, subroutines, and block-data subprograms are collec- 
tively called subprograms. Subroutines and functions are collectively 
called procedures. The PROGRAM, SUBROUTINE, BLOCK DATA, 
FUNCTION, and statement-function statements are described in detail 
in Section 5.3, “Statement Directory.” Related information is provided in 
the entries for the CALL and RETURN statements. 


By using subprograms you can develop large, more structured programs. 
This is useful in the following situations: 


If: 


You have a large 
program 


You intend to include 
certain routines in 
more than one 
program 


You would like 
a routine to be 
implemented in 
several different 
ways 


Then: 


You can more easily develop, test, maintain, 
and compile a large program when it is broken 
into parts. 


You can create object files that contain these 
routines and link them to each of the pro- 
grams in which the routines are used. 


You can place the routine in its own file and 
compile it separately. Then, to improve perfor- 
mance, you can alter the implementation or 
even rewrite the routine in assembly lan- 
guage, Microsoft Pascal, or Microsoft C. The 
rest of your program will not need to change. 
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3.8 Main Program 


A main program is any program unit that does not have a FUNCTION, 
SUBROUTINE, or BLOCK DATA statement as its first statement. The 
first statement of a main program may be a PROGRAM statement. Main 
programs are always assigned the global name _main. The name _main 
should not be used for anything else in a program. (The name “main” is 
actually permitted as a common-block name, as a local variable in a subpro- 
gram outside the main program, or as a subprogram name in a module that 
does not contain a PROGRAM statement and is not referenced by a 
module that contains the main program. However, because it is likely to 
cause confusion, the use of “main” is not recommended.) If the main pro- 
gram has a PROGRAM statement, the name specified in the PROGRAM 
statement is assigned in addition to the name _main. 


The execution of a program always begins with the first executable state- 
ment in the main program, so there must be exactly one main program in 
every executable program. 


For further information about programs, see Section 5.3.42, “The PRO- 
GRAM Statement.” 


3.9 Subroutines 


A subroutine is a program unit that can be called from other program units 
with a CALL statement. When invoked, a subroutine performs the set of 
actions defined by its executable statements. Then the subroutine returns 
control to the statement immediately following the one that called it or to 
a statement specified as an alternate return. See Section 5.3.5, “The CALL 
Statement,” for more information. 


A subroutine does not directly return a value. However, values can. be 
passed back to the calling program unit through arguments or common 
variables. 


See Section 5.3.50, “The SUBROUTINE Statement,” for further 
information. 
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3.10 Block-Data Subprograms 


A block-data subprogram is a program unit that provides initial values for 
variables in common blocks. 


Variables are normally initialized with DATA statements. Variables in 
named common blocks can be initialized only in block-data subprograms. 
Variables in blank common blocks cannot be initialized in block-data sub- 
programs. See Section 5.3.4, “The BLOCK DATA Statement,” for more 
information. 


3.11 Functions 


A function is referred to in an expression and returns a value that is used 
in the computation of that expression. Functions can also return values 
through arguments and common variables. There are three kinds of 
functions: 


1. External functions 


2. Statement functions 


3. Intrinsic functions 
Each of these is described in more detail in Sections 3.11.1 —3.11.3. 


Reference to a function may appear in an arithmetic or logical expression. 
When the function reference is executed, the function is evaluated and the 
resulting value is used as an operand in the expression containing the func- 
tion reference. Note that if a character function is referenced in a program 
unit, the function length specified in the program unit must be an integer- 
constant expression. | 
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The syntax of a function reference is as follows: 


fname (larguments]) 


Parameter Value 

fname Name of an external, intrinsic, or statement 
function. 

arguments Actual arguments. If more than one argument 


is given, they must be separated by commas. 


The rules for arguments for functions are identical to those for subroutines 
(except that alternate returns are not allowed), and are described in Section 
5.3.5, “The CALL Statement.” Some additional restrictions specific to state- 
ment functions and intrinsic functions are described in Section 3.11.2, 
“Statement Functions,” and Section 3.11.3, “Intrinsic Functions.” 


3.11.1 External Functions 


An external function is specified by a function program unit. It begins with 
a FUNCTION statement and concludes with an END statement. 


= Example 


C The following example i5 an external function that 
C calculates the Simpson approximation of a definite 
C integral 
INTEGER FUNCTION simpson(delx,steps,y) 
INTEGER delx,y(100),s5um,steps,factor 
sum=0 
DO 100 i=0,steps 
IF((i.EQ@.0).0R.(i.EQ.steps) ) THEN 
factor=1 
ELSEIF (MOD(i,2).EQ.0)THEN 
factor=e2 
ELSE 
factor=4 
ENDIF 
sum=factor*y(i)t+sum 
100 CONTINUE 
simpson=INT((REAL(delx)/3.)*REAL (sum) ) 
END 
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3.11.2 Statement Functions 


A statement function is defined by a single statement and is similar in form 
to an assignment statement. 


A statement function is not an executable statement, because it is not exe- 
cuted in order as the first statement in its particular program unit. The 
body of a statement function defines the meaning of the statement function. 
It is carried out, like other functions, by executing a function reference in 
an expression. 


For information on the syntax and use of a statement-function statement, 
see Section 5.3.48, “The Statement-Function Statement.” 


3.11.3 Intrinsic Functions 


Intrinsic functions are predefined by the Microsoft FORTRAN language. 
Appendix B summarizes all the intrinsic functions available in Microsoft 
FORTRAN. Other functions supplied with Microsoft FORTRAN are 
described in Appendix C, “Additional Procedures.” 


An IMPLICIT statement cannot change the type of an intrinsic function. 
For those generic intrinsic functions that allow several types of arguments, 
all arguments in a single reference should be of the same type. The intrin- 
sic function IDIM, for example, takes two integer arguments and returns 
the positive difference. If you specify IDIM(1I,J), I] and J should both be 
of the same type. If, however, two arguments are of different data types, the 
Microsoft FORTRAN Compiler first attempts to convert the arguments to 
the correct data type. For instance, if I and J in the example above are 
real numbers, they are first converted to the INTEGER type (see Table 2.6, 
“Arithmetic Type Conversion,” for information on type conversion), and 
then the operation takes place. Or, if I is of type INTEGER *2 and J is 

of type INTEGER «4, [| is first converted to INTEGER *4, and then the 
operation takes place. 


Intrinsic-function names, except those listed in Section 3.6, “Arguments,” 
can appear in an INTRINSIC statement. Intrinsic functions specified in 
INTRINSIC statements can be used as actual arguments in external pro- 
cedure references. An intrinsic-function name can also appear in a type 
statement, but only if the type is the same as the standard type for that 
intrinsic function. 
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Arguments must agree in order, number, and type with those specified in 
Tables 3.2—3.17. Arguments can also be expressions of the specified type. 


“Generic” intrinsic functions, like ABS, allow you to use the same 
intrinsic-function name with more than one type of argument. “Specific” 
intrinsic functions, like IFIX, can only be used with one type of argument. 
For example, specific intrinsic functions can be useful if you want to ensure 
that 16-bit arithmetic is performed in an expression, or if you want to 
guarantee the range of your result. 


If an intrinsic function’s name is in the formal argument list of a function 
or subroutine in a subprogram, then that name is being used for something 
else in that subprogram; it is, therefore, not an intrinsic function. In the fol- 
lowing statement, for example, 5ign, float, and index are not being 
used as intrinsic functions: 


SUBROUTINE process (Sign, float, index) 


If you give an argument for which the result is not mathematically defined, 
or for which the result exceeds the numeric range of the processor, the 
result of the intrinsic function is undefined. 


The result of an intrinsic function of complex type is the principal value. 
The principal value of a complex number is the number whose argument is 
less than or equal to 7 and greater than — 71. 


When results of generic integer intrinsic functions are passed to subpro- 
grams, the setting of $STORAGE determines the data type of the value 
to be passed. 


Table 3.1 explains the abbreviations used for all 15 tables of intrinsic func- 
tions in this chapter. 
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Table 3.1 


Abbreviations Used to 
Describe Intrinsic Functions 


Abbreviation Data Type 


gen More than one possible argument 
type; see “Argument Type” 
column 

int INTEGER, INTEGER £1, 
INTEGER «2, or INTEGER #4 

intl INTEGER +1 

int2 INTEGER * 2 

int4 INTEGER *4 

real REAL, REAL#«4, DOUBLE 
PRECISION, or REAL#8 

real4 REAL#4 

db] REAL «8 

log LOGICAL, LOGICAL £1, 
LOGICAL #2, or LOGICAL *4 

log LOGICAL #1 

log2 LOGICAL *2 

log4 LOGICAL #4 

emp COMPLEX, COMPLEX «8, or 
COMPLEX #16 

cmp8 COMPLEX#8 

emp16 COMPLEX «16 

char CHARACTER [*n] 


3.11.3.1 Data-Type Conversion 


This section describes how the type-conversion intrinsic functions work. 
Table 3.2 summarizes the intrinsic functions that perform type conversion. 
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Table 3.2 


Intrinsic Functions: Type Conversion 


Name 


INT(gen) 
INT 1(gen) 
INT2(gen) 
INT4(gen) 
INTC(en) 
IFTX(real4) 
HFIX(gen) 
JFIX(gen) 
IDINT(d6/) 
REAL(gen) 
DREAL(cmp16) 
FLOAT(in?) 
SNGL(db/) 
DBLE(gen) 


CMPLX(genAl,genB]) 
DCMPLX(genAl,genB]) 


ICHAR(char) 
CHARC(int) 


Argument 
Type 


int, real, or cmp 
int, real, or cmp 
int, real, or cmp 
int, real, or cmp 
int, real, or cmp 
REAL«4 

int, real, or cmp 
int, real, or cmp 
REAL#8 

int, real, or cmp 
COMPLEX «16 
int 

REAL#8 

int, real, or cmp 
int, real, or emp 
int, real, or cmp 
char 

int 


Function 

Type 

int 
INTEGER#1 
INTEGER #2 
INTEGER #4 
INTEGER[C] 
int 

INTEGER #2 
INTEGER *4 
int 

REAL#4 
REAL#8 
REAL#4 
REAL«#4 
DOUBLE PRECISION 
COMPLEX«8 
COMPLEX #16 
int 

char 


Note: See Table 3.1 for a list of the abbreviations used in this table. 


The INT intrinsic function converts arguments to integers. If the argument 
gen is an integer, then INT(gen) equals gen. If gen is real, then INT(gen) 
equals the value of gen, truncated. INT (1.9), for example, is equal to 1, 
and INT(—1.9) is equal to —1. If gen is complex, first the real part of 
gen is taken; then, that real part is converted to an integer by truncation. 
INT1 converts its arguments to INTEGER#1. INT2 and HFIX convert 
their arguments to INTEGER «2. INT4 and JFITX convert their arguments 
to INTEGER «4. They can be used to convert the data type of an expres- 
sion or variable to an expression of the correct type for passing as a subpro- 
gram argument. INT2 can also be used to direct the compiler to use short 
arithmetic in expressions which would otherwise be long, and INT4 can 
specify long arithmetic in expressions which would otherwise be short. 
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The INTC intrinsic function converts arguments to C integers. C integers 
are described in Section 2.6.2, “C.” The IFTX and IDINT intrinsic functions 
convert single- or double-precision arguments, respectively, to integers. 


The REAL intrinsic function converts numbers to the single-precision real 
data type. If gen is an integer, then REAL(gen) is gen stored as a single- 
precision real number. If gen is a single-precision real number, then 
REAL(gen) equals gen. If gen is complex, then REAL(gen) equals the real 
part of gen. If gen is a double-precision number, then REAL(gen) is the first 
six significant digits of gen. 


The DBLE intrinsic function converts numbers to the double-precision real 
data type. The FLOAT and SNGL intrinsic functions convert numbers to 
the single-precision real data type. They work like the REAL intrinsic 
function. The DREAL intrinsic function converts COMPLEX #16 numbers 
to the double-precision real data type by deleting the imaginary part. 


The CMPLX and DCMPLX intrinsic functions convert numbers to the 
complex data types. If only one argument, gen, is specified, gen can be an 
integer, real, double-precision, or complex number. In this case, if gen is 
complex, CMPLX(gen) equals gen. If gen is an integer, real, or double- 
precision number, the real part of the result equals REAL(gen), and the 
imaginary part equals 0.0. If two arguments are specified, genA and genB 
must both be the same type, and they can be integers, real numbers, or 
double-precision numbers. In this case, the real part of the result equals 
REAL(genA), and the imaginary part of the result equals REAL(genB). 


The ICHAR intrinsic function translates characters into integers, and the 
CHAR intrinsic function translates integers into characters. The ASCII 
character sequence is used to make the translation, as shown in Appendix 
A, “ASCII Character Codes.” Both the argument of the CHAR intrinsic 
function and the result of the ICHAR intrinsic function must be greater 
than or equal to 0, and less than or equal to 255. The argument of the 
ICHAR intrinsic function must be a single character. 


Note 


For two characters, char@A and charB, the expression 
(charA.LE.charB) is true if and only if 
(ICHAR({charA).LE.ICHAR(charB) ) is true. 
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m Example 


The following list shows examples of the type-conversion intrinsic functions: 


Function Reference Equivalent 
INT(-3.7) —3 

INT (7. pied 7 

INT (0) 0 

ENT GC7s2,39%3.)-) 7 


3.11.3.2 Truncating and Rounding 


Table 3.3 summarizes the intrinsic functions that perform truncation and 
rounding. 


Table 3.3 


Intrinsic Functions: Truncation and Rounding 


Truncate Argument Function 
Name or Round Type Type 
AINT(real) Truncate real Same as argument 
DINT(dOl) Truncate REAL#*8 REAL#«8 
ANINT(real) Round real Same as argument 
DNINT(d6/) Round REAL*8 REAL#8 
NINT (real) Round real int 
IDNINT(db/) Round REAL#8 int 


Note: See Table 3.1 for a list of the abbreviations used in this table. 
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The intrinsic functions AINT and DINT truncate their arguments. The 
intrinsic functions ANINT, DNINT, NINT, and IDNINT are evaluated 
as follows: 


Argument Result 
Greater than zero INT( gen + 0.5) 
Equal to zero Zero 

Less than zero INT( gen — 0.5) 


w Examples 


The following list shows examples of truncation and rounding: 


Function Reference Equivalent 
AINT(2.5) 2.0 
AINT(-2.5) =2 20 
ANINT(2.5.) 30 
ANINT(-2.5) #324) 


The following program uses the ANINT intrinsic function to perform 
rounding: 


C This program adds tax to a purchase amount 
C and prints the total. 


REAL AMOUNT, TAXRATE, TAX, TOTAL 
TAXRATE = 0.079 
AMOUNT = 12.99 

C Calculate tax and round to nearest hundredth. 
TAX = ANINT(AMOUNT*#TAXRATE * 100.)/100. 
TOTAL = AMOUNT + TAX 


WRITE (*,100) AMQUNT, TAX, TQTAL 
100 FORMAT (1X,’AMOUNT %,F7.2/ 
1 1X,°TAX 2 Gt te 
ra 1X,’TOTAL ‘’,F7.2) 
oor: 
END 
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3.11.3.3 Absolute Value and Sign Transfer 


Table 3.4 summarizes the intrinsic functions that take absolute values and 
perform sign transfers. 


Table 3.4 


Intrinsic Functions: Absolute Values and Sign Transfer 


Argument Function 
Name Definition Type Type 
ABS(gen) Absolute value int, real, or emp Function type same 


as argument type, 
except when 
argument is cmp. 


TABS(int) Absolute value int int 

DABS(db/) Absolute value REAL+«8 REAL#8 
CABS(cmp) Absolute value cmp real! 
CDABS(cmp16) Absolute value COMPLEX * 16 REAL#8 
SIGN(genA,genB) Sign transfer int or real Same as argument 
ISIGN(intA,intB) Sign transfer int int 
DSIGN(dd/A,dd/B) Sign transfer REAL#«8 REAL#8 


Note: See Table 3.1 for a list of the abbreviations used in this table. 


lig argument is COMPLEX#§8, function is REAL #4. If argument is COMPLEX * 16, function 
is REAL£8. 


The intrinsic functions ABS, IABS, DABS, CABS, and CDABS return 
the absolute value of their arguments. Note that for a complex number 
(real,imag), the absolute value equals the following: 


(real *2 + imag* *2)* #(1/2) 
For two arguments (genfA,genB), the intrinsic functions SIGN, ISIGN, 


and DSIGN return |genAl if genB is greater than or equal to zero, and 
—IgenAl if genB is less than zero. 
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= Examples 
The following program uses a sign-transfer intrinsic function: 


A= 6.2 
B= -3.1 


C The following statement transfers the siqn of B to A 
C and assigns the result to C. 
C = SIGN(A,B) 


C The output will be -S.e. 
WRITE (*,%*) C 
STOP *% ¢ 
END 


The following program uses sign-transfer and absolute-value intrinsic 
functions: 


C This program takes the square root of a vector magnitude. 
C Since the sign in a vector represents direction, the Square 
C root of a negative value is not meant to produce complex 
C results. This routine removes the sign, takes the square 
C root, and then restores the sign. 
REAL MAG ,SGN 
WRITE (*, ie! ‘ ENTER A MAGNITUDE: : 


READ (*, i 0.5)"’) MAG 


C Store the sign of MAG by transferring its sign to 1 
C and storing the result in SGN. 
SGN = SIGN(1., MAG) 


C Calculate the square root of the absolute value of the 
C magnitude. 
RESULT = SQRT(ABS(MAG) ) 


C Restore the sign by multiplying the result DY <4. OF Fl, 
RESULT = RESULT * SGN 


WRITE (*,*) RESULT 


= | 
END 
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3.11.3.4 Remainders 


Table 3.5 summarizes the intrinsic functions that return remainders. 


Table 3.5 


Intrinsic Functions: Remainders 


Argument Function 


Name Type Type 

MOD (genA,genB) int or real Same as argument 
AMOD( (rea/4A,real4B) REAL#4 REAL *4 
DMOD(dbdIA,dbiB) REAL#8 REAL#8 


Note: See Table 3.1 for a list of the abbreviations used in this table. 
The intrinsic functions MOD, AMOD, and DMOD return remainders, 
as follows: 
MOD(genA,genB) = genA — (INT(genA/genB) * genB) 


If genB is 0, the result is undefined. 


3.11.38.5 Positive Differences 


Table 3.6 summarizes the intrinsic functions that return the positive differ- 
ence between two arguments. 


Table 3.6 


Intrinsic Functions: Positive Difference 


Argument Function 
Name Type Type 
DIM(genA,genB) int or real Same as 
argument 
IDIM(intA,intB) int int 
DDIM(dbd/A,dblB) REAL«8 REAL#«8 


Note: See Table 3.1 for a list of the abbreviations used in 
this table. 
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The intrinsic functions DIM, IDIM, and DDIM return the positive differ- 
ence of two arguments as follows: 


If: Then: 
genA <= genB DIM(genA,genB) = 0 
genA > genB DIM(genA,genB) = genA—genB 


= Examples 


The following list shows examples of positive differences: 


Function Reference Equivalent 
DIM(10,5) 5 
DIM(5,10) 0 
DIM(10,-5) 15 


3.11.3.6 Maximums and Minimums 


Table 3.7 summarizes the functions that return the maximum or minimum 
of two or more values. 
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Table 3.7 


Intrinsic Functions: Maximums and Minimums 


Argument Function 


Name Definition Type Type 
MAX(genA,genB[,genC]...) Maximum int or real Same as 
argument 
MAXO(intA,intBl,intC]...) Maximum int int 
AMAX1(real4A,real4B|,real4C]...) Maximum REAL *4 REAL *4 
AMAX0(intA,intBl,intC]...) Maximum int REAL #4 
MAX (real4A,real4B[,real4C]...) Maximum REAL *4 int 
DMAX1(dd/A,dbiB[,dbiC}...) Maximum REAL#«8 REAL#*8 
MIN(genA,genBI,genC]...) Minimum int or real Same as 
argument 
MINO(ntA,intBl,intC]...) Minimum int int 
AMIN I(real4A,real4B[,real4C]...) Minimum REAL *4 REAL #4 
AMINO(ntA,intBL,iniC]...) Minimum int REAL *4 
MINI (real4A,real4B| ,real4C]...) Minimum REAL #4 int 
DMIN1(dd/A,dbiBI,db/C]...) Minimum REAL#*8 REAL #*8 


Note: See Table 3.1 for a list of the abbreviations used in this table. 


The intrinsic functions MAX, MAX0, AMAX1, and DMAX1 return the 
maximum value in the argument list. The intrinsic functions AMAX0 and 
MAX] return the maximum and also perform type conversion. Similarly, 
MIN, MINO, AMINI, and DMINI1 return minimums, while AMINO and 
MIN1 return the minimum and also perform type conversion. 


m Examples 


The following list shows examples of maximums and minimums: 


Function Reference Equivalent 
MAX(5,6,7 - 8 
MAX(-5. 7) POs 
MIN(-5, 7) =7 
MIN(.1E .1E14,.1E19) VEt2 
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The following program uses the MIN and MAX intrinsic functions: 


C This program uses the MAX intrinsic function to find the 
C maximum and minimum elements ina vector x. 


integer i 
real x(10), small, large 


date «7 12/532~75-6u2 51401 ee liye eb gee yg eH 6a Sy eu oy = le.27 


C Initialize small and large with arbitrarily large and small 
C values. 


small = 1e20 
large = -lee 
do 100, i1 = 1,10 
small = min(small, x(i)) 
large = max(large, x(i)) 
100 continue 


write(*,200) small, large 


200 format(’ The smallest number was ’,f6.1/ 
1 ’ The largest number was ‘’,f6.1) 
stop ’ % 
end 


The program above has the following output: 


The smallest number was -1 
The largest number was | 


2c 

Te 

3.11.3.7 Double-Precision Products 

Table 3.8 lists the intrinsic function that returns a double-precision product. 
Table 3.8 


Intrinsic Functions: Double-Precision Product 


Argument Function 
Name Type Type 


DPROD(real4A,real4B) REAL #4 REAL#8 


Note: See Table 3.1 for a list of the abbreviations used in this table. 


The intrinsic function DPROD returns the double-precision product of two 
single-precision real arguments. 
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” Example 


The following program uses the DPROD intrinsic function: 


REAL A,B 
REAL*#8 C 

A = 3.72382 

B = 2.39265 

WRITE(*,*) A*B,DPROD(A,B) 
STOP ’ @ 

END 


The program above has the following output: 


8.9097980 8.90979744044290 
3.11.3.8 Complex Functions 


Table 3.9 lists the intrinsic operations that perform various operations for 
complex numbers. 
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Intrinsic Functions: Complex Operators 


Name 


AIMAG(cmp8) 


IMAG(cmp) 


DIMAG(cmp16) 


CONJG(cmp8$) 


DCONJG(cmp!6) 


Definition 


Imaginary part of 
COMPLEX *8 
number 


Imaginary part of 
cmp number 


Imaginary part of 
COMPLEX #16 
number 


Conjugate of 
COMPLEX «8 
number 


Conjugate of 
COMPLEX #16 
number 


Argument 
Type 
COMPLEX *8 


cmp 


COMPLEX #16 


COMPLEX *8 


COMPLEX *16 


Note: See Table 3.1 for a list of the abbreviations used in this table. 


Program Structure 


Function 
Type 


REAL *4 


If argument is 
COMPLEX «8, 
function is 
REAL «4. If 
argument is 
COMPLEX « 16, 
function is 
REAL£8. 


REAL#8 


COMPLEX «8 


COMPLEX «16 


The intrinsic functions AIMAG, IMAG, and DIMAG return the imaginary 
part of complex numbers. The intrinsic functions CONJG and DCONJG 
return the complex conjugates of complex numbers. So, for a complex 
number complex equal to (real,imag), AIMAG(complex) equals imag, and 
CONJG(complex) equals (real, — imag). Note that the REAL and DBLE 
intrinsic functions, described in Section 3.11.3.1, can be used to return the 
real part of COMPLEX *8 and COMPLEX * 16 numbers, respectively. 
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= Example 
The following program uses complex intrinsic functions: 


C This program applies the quadratic formula to a 
C polynomial and allows for complex results. 


REAL A,B,C 
COMPLEX ANS1, ANS2, DESC 
WRITE (*,100) 
100 FORMAT(’ Enter a, b, and c of the 
+ polynomial aX*2 + bX + c:%) 
READ (*,’(3F10.5)’%) A,B,C 


DESC = ea 4.%*A*C)) 

ANS1 = (-B+DESC)/(2.*A) 

ANSe2 = (-B-DESC)/(2.*A) 

WRITE (*,200) 
200 FORMAT (/% The roots are:’/) 

WRITE (*,300) REAL(ANS1), AIMAG(ANS1), 

+ REAL(ANS2), AIMAG(ANS2) 

300 FORMAL (6% x = 2PiOeS. se. OS 51 2) 

SigPp % 

END 


3.11.3.9 Square Roots 


Table 3.10 summarizes the intrinsic functions that return square roots. 


Table 3.10 


Intrinsic Functions: Square Roots 


Argument Function 
Name Type Type 
SQRT(gen) real or cmp Same as argument 
DSQRT(db/) REAL«*8 REAL#«8 
CSQRT(cmp8) CGMPLEX #8 COMPLEX #8 


CDSQRT\(cmp16) COMPLEX + 16 COMPLEX * 16 


Note: See Table 3.1 for a list of the abbreviations used in this table. 
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The intrinsic functions SQRT, DSQRT, CSQRT, and CDSQRT return the 
square root of their respective arguments. Note that the arguments to these © 
intrinsic functions must be greater than or equal to zero. For a complex 
argument, SQRT, CSQRT, and CDSQRT return the principal value with 
the real part greater than or equal to zero. When the real part of the result 
is zero, the imaginary part is greater than or equal to zero. 


= Example 
The following program uses the SQRT intrinsic function: 


C This program calculates the length of the hypotenuse 
C of a right triangle from the lengths of the other 
C two sides. 

real sidea, sideb, hyp 


Sidea = 3. 
Sideb = 4. 


hyp = sart(sidea**2 + sideb**2) 


write(*,1 00) ny 

100 format (/’% Th ypotenuse is ’,f10.3) 
stop ‘ “% 
end 


3.11.3.10 Exponents and Logarithms 


Table 3.11 lists the intrinsic functions that return exponents or logarithms. 
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Table 3.11 


Intrinsic Functions: Exponents and Logarithms 


Name 


EXP(gen) 
DEXP (db!) 
CEXP(cmp8) 
CDEXP(cmp16) 
LOG(gen) 
ALOG(real4) 
DLOG(d6l) 
CLOG(cmp8) 
CDLOG(cmp16) 
LOG10(real) 
ALOG10(rea/4) 
DLOG10(db)) 


Definition 


Exponent 
Exponent 
Exponent 
Exponent 
Natural logarithm 
Natural logarithm 
Natural logarithm 
Natural logarithm 
Natural logarithm 
Common logarithm 
Common logarithm 


Common logarithm 


Argument 
Type 


real or cmp 
REAL*8 
COMPLEX *8 
COMPLEX «16 
real or cmp 
REAL #4 
REAL#8 
COMPLEX #8 
COMPLEX #16 
real 

REAL #4 
REAL*8 


Note: See Table 3.1 for a list of the abbreviations used in this table. 


Function 
Type 


Same as argument 
REAL£«8 
COMPLEX *8 
COMPLEX +16 
Same as argument 
REAL #4 
REAL#8 
COMPLEX #8 
COMPLEX +16 
Same as argument 
REAL #4 
REAL#8 


The intrinsic functions EXP, DEXP, CEXP, and CDEXP return e* * gen. 


The intrinsic functions LOG, ALOG, DLOG, CLOG and CDLOG return 
the natural logarithm of their respective arguments. LOG10, ALOG10, and 
DLOG1O0 return the base-10 logarithm of their arguments. 


For all of the logarithmic intrinsic functions, if the argument is real, the 
argument must be greater than zero. The complex argument (0,0) is not 
allowed in the intrinsic functions CLOG or LOG. The imaginary part of the 
result of CLOG is greater than —7 and less than or equal to 7. The imag- 
inary part of the result of CLOG is wm only if the real part of the argument 
is less than zero and the imaginary part of the argument equals zero. 
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m= Kxample 
The following program uses the EXP intrinsic function: 


Given the initial size and growth rate of a colony, 
this program computes the size of the colony at a 
specified time. The growth rate of the colony is 
assumed to be proportional to its size. 


Moon 


REAL SIZEI, SIZEF, TIME, RATE 


SIZEI = 10000. 
TIME = 40.5 
RATE = 0.0875 
SIZEF = SIZE] * EXP(RATE * TIME) 
WRITE (*,100) SIZEF 

100 FORMAT (’ THE FINAL SIZE IS ’,€£12.6) 
STOP’? 
END 


3.11.3.11 Trigonometric Functions 


Table 3.12 summarizes the trigonometric intrinsic functions. 
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Table 3.12 


Intrinsic Functions: Trigonometric Functions 


Name 


SIN(gen) 
DSIN(db) 
CSIN(cmp8) 
CDSIN(cmp16) 
COS(gen) 
DCOS(dbl) 
CCOS(cmp8) 
CDCOS(cmp16) 
TAN(real) 
DTAN(dd/) 
ASIN(rea!) 
DASIN(d6d/) 
ACOS(rea/) 
DACOS(dbd) 
ATAN(real) 
DATAN(dbdl) 
ATAN2(realA,realB) 


DATAN2(dd/A,db/B) 


COTAN(real) 
DCOTAN(dbd/) 
SINH (real) 
DSINH (dd!) 
COSH(rea!) 


DCOSH(dd!) 
TANH(reai) 


DTANH(d8/) 


Definition 


Sine 

Sine 

Sine 

Sine 

Cosine 
Cosine 
Cosine 
Cosine 
Tangent 
Tangent 
Arc sine 
Arc sine 
Arc cosine 
Arc cosine 
Arc tangent 
Arc tangent 


Arc tangent 
(realA/realB) 


Arc tangent 
(dblA/dbiB) 


Cotangent 
Cotangent 
Hyperbolic sine 
Hyperbolic sine 


Hyperbolic 
cosine 


Hyperbolic 
cosine 


Hyperbolic 
tangent 


Hyperbolic 
tangent 


Argument 
Type 


real or cmp 
REAL#8 
COMPLEX «8 
COMPLEX +*16 
real or cmp 
REAL*8 
COMPLEX<«8 
COMPLEX +16 
real 

REAL#8 

real 

REAL#8 

real 

REAL#8 

real 

REAL#8 

real 


REAL#8 


real 
REAL#8 
real 
REAL#8 
real 


REAL+*8 
real 


REAL*8 


Note: See Table 3.1 for a list of the abbreviations used in this table. 
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Function 
Type 


Same as argument 
REAL#8 
COMPLEX «8 
COMPLEX *16 
Same as argument 
REAL#8 
COMPLEX«8 
COMPLEX = 16 
Same as argument 
REAL#8 

Same as argument 
REAL#8 

Same as argument 
REAL#8 

Same as argument 
REAL#*8 


Same as argument 
REAL#«8 


Same as argument 
REAL#8 
Same as argument 
REAL#8 


Same as argument 
REAL#8 
Same as argument 


REAL#8 


Program Structure 


All angles used in the trigonometric intrinsic functions are in radians. 
Table 3.13 indicates some restrictions on the arguments to and results of 
trigonometric intrinsic functions. 


Table 3.13 


Restrictions on Arguments and Results 


Function 


SIN, DSIN, 
COS, 
DCOS, 
TAN, 
DTAN 


ASIN, 
DASIN 


ACOS, 
DACOS 


ATAN, 
DATAN 


ATAN2, 
DATAN2 


COTAN 


Restrictions Range of 
on Arguments Results 


None 

larg| <= 1 —m/2 <= result <= w/2 
larg| <= 1 0 <= result <= 7 
None —m/2<= result <= m/2 
Arguments —m7 <= result<= 7 
cannot both be 

zero. 

Argument 


cannot be zero. 


The range of the results of the intrinsic functions ATAN2 and DATAN2 is 


as follows: 
Arguments 
genA > 0 
genA = 0 and genB 
> 0 
genA = 0 and genB 
<0 
genA <0 
genB = 0 


Result 


result > 0 


result = O 


result = 


=} 


result < 0 


lresult| = m/2 
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m Example 
The following program uses trigonometric intrinsic functions: 


C This program asks for a polar coordinate and converts 
C it to a rectangular coordinate. 
C 

real theta, radius, x, y 


write (*,*) *% Enter polar coordinate(radius, angle)’ 
read (*,’(2f10.5)%) radius, theta 


radius * cos(theta) 


y radius * sin(theta) 
write (*,100) x,y 
100°. fermat 17" {Xs VY) = 26" 347635 "5" 9975357)" 3 
stop ’ % 
end 


3.11.3.12 Character Functions 


Table 3.14 summarizes the intrinsic functions that perform operations on 
character constants and variables. 


Table 3.14 


Intrinsic Functions: Character Functions 


Argument Function 

Name Definition Type Type 
LGE(charA,charB) charA >= charB char log 
LGT(charA,charB) charA > charB char - log 
LLE(charA,charB) charA <= charB char log 
LLT(charA,charB) charA < charB char log 
LEN(char) Length of string char int 
INDEX(charA,charB). ‘Position of substring char int 

charB in string 

charA 


Note: See Table 3.1 for a list of the abbreviations used in this table. 
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The intrinsic functions LGE, LGT, LLE, and LLT use the ASCII collating 
sequence to determine whether a character argument is less than (precedes 
in the ASCII collating sequence), greater than (follows in the ASCII collat- 
ing sequence), or equal to (identical in the ASCII collating sequence) 
another character argument. If the lengths of two character arguments are 
not equal, the shorter operand is padded to the size of the larger operand 
by adding blanks on the right. 


The argument to the LEN intrinsic function does not have to be defined. 
The INDEX intrinsic function returns integers indicating the position of 
charB in charA. If the length of charA is less than the length of charB, or if 
charB does not occur in charA, the index equals zero. If charB occurs more 
than once in charA, the INDEX intrinsic function returns the position of 
the first occurrence of charB. 


@ Example 


The following list shows examples of the character intrinsic functions: 


Function Reference Equivalent 
LEA". "3B . TRUE. 
LEDR(* As .7 a" 4 . TRUE. 


LEN( ’abcdef 7” ) 
INDEX (’banana’,’an’”) 2 


3.11.3.13 End-of-File Function 


Table 3.15 summarizes the end-of-file intrinsic function. 


Table 3.15 


Intrinsic Functions: End-of-File Function 


Argument Function 
Name Definition Type Type 


EOF (int) End-of-file int log — 


Note: See Table 3.1 for a list of the abbreviations used in this table. 
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If the unit specified by its argument is at or past the end-of-file record, the 
intrinsic function HOF (int) returns the value .TRUE.; otherwise, KOF 
returns the value .FALSE.. The value of int must be the unit specifier 
corresponding to an open file. The value of int cannot be zero, unless you 
have reconnected unit zero to a unit other than the screen or keyboard. 


# Kxample 
The following program uses the EOF intrinsic function: 


C This program reads a file of integers and 
Co prints their average. 


character*#64 =fname 
integer total, count, value 


write(*,’{a)’) % Enter file name: 
read (*,’(a)’) fname 


C Open unit 1 for input (any unit except * is ok). 
open(1,file=fname) 


total = 0 
count = 0 
100 if (.not. eof{1)) then 

count = count + 1 
read(1,’(i7)’) value 
total = total + value 
goto 100 

endif 


if (count .ge. 0) then 
write(*,*)’Average i5:°%,float(total)/count 
else 
write(*,*) “’Input file is empty’ 
endif 
stop 
end 


? a 
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3.11.3.14 Address Functions 


Table 3.16 lists the intrinsic functions that return addresses. 


Table 3.16 


Intrinsic Functions: Addresses 


Argument Function 


Name Definition Type Type 
LOCNEARG€en) Unsegmented address Any INTEGER #2 
LOCFAR(gen) Segmented address Any INTEGER +4 
LOC(gen) Address Any INTEGER #2 or 
INTEGER #4 


Note: See Table 3.1 for a list of the abbreviations used in this table. 
These three intrinsic functions return the machine address of the variable 
passed as an actual argument. 


The following list shows how the address is returned for different types of 
arguments: 


Argument Return Value — 
Expression, function call, A temporary variable is generated to 
or constant hold the result of the expression, function 


call, or constant. The address of the tem- 
porary variable is then returned. 


All other arguments The machine address of the actual argu- 
ment is returned. 


The value returned by a LOCNEAR intrinsic function is equivalent to a 
near procedure or data pointer in Microsoft C or an adr type in Microsoft 
Pascal. Similarly, the value returned by a LOCFAR intrinsic function is 
equivalent to a far data or function pointer in Microsoft C, or an ads, 
adsfunc, or adsproc type in Microsoft Pascal. 


LOCNEAR can only be used with NEAR procedures and with objects in 
the default data segment, such as objects in NEAR common blocks and 
objects not named in $LARGE metacommands. For example, LOCNEAR 
will not usually work when applied to an argument unless that argument is 
explicitly in the default data segment. LOC returns either a near or a far 
pointer, depending on the memory model used to compile. 
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3.11.3.15 Bit-Manipulation Functions 


Table 3.17 summarizes the functions that perform bit manipulation. 


Table 3.17 


Intrinsic Functions: Bit Manipulation 


Name 


TOR(intA,intB) 
ISH LUntA,intB) 
ISHFT(ntA,intB) 
ISHA(ntA intB) 
ISHC(intA,intB) 
TROR(ntA,intB) 
TAND(ntA,intB) 
NOT(ntA) 


IBCLRUntA,intB) 
IBSET(intA,intB) 


IBCHNG(ntA,intB) 


BTEST(ntA,intB) 


Argument Function 


complement 


Definition Type Type 
Inclusive or int Same as argument 
Logical shift int Same as argument 
Logical shift int Same as argument 
Arithmetic shift — int Same as argument 
int Same as argument 
Exclusive or int Same as argument 
Logical product int Same as argument 
int Same as argument 
Bit clear int Same as argument 
int Same as argument 
Bit change int Same as argument 
int log 


Note: See Table 3.1 for a list of the abbreviations used in this table. 


All of the bit-manipulation intrinsic functions can be passed as actual argu- 
ments. These intrinsic functions work as follows: 


Function 


Inclusive or 


Logical shift 
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Operation 


All i bits of the result are set as follows: if the 
ith bit of either the first or second argument is 
1, then the ith bit of the result is set to 1. 


If intB is greater than or equal to zero, shift 
intA logically left by intB bits. If intB is 
less than zero, shift intA logically right by 
intB bits. 


Arithmetic shift 


Rotate 


Exclusive or 


Logical product 


Logical complement 


Bit clear 
Bit set 

Bit change 
Bit test 


# Kxamples 


Program Structure 


If intB is greater than or equal to zero, shift 
intA arithmetically left by intB bits. If intB is 
less than zero, shift intA arithmetically right 
by intB bits. 


If intB is greater than or equal to zero, rotate 
intA left intB bits. If intB is less than zero, 
rotate intA right intB bits. 


If the ith bits of the first and second argu- 
ments are not equal to each other, then the ith 
bit of the result is set to 1. Otherwise, the ith 
bit of the result is set to 0. 


If the ith bits of both the first and the second 

arguments are 1, then the ith bit of the result 
is set to 1. Otherwise, the ith bit of the result 
is set to 0. 


If the ith bit of the argument is 1 then the ith 
bit of the result is set to 0. Otherwise the ith 
bit of the result is set to 1. 


Clear intB bit in intA. 
Set intB bit in intA. 
Reverse value of bit intB in intA. 


Return .TRUE. if bit intB in intA is set to 1. 
Return .FALSE. otherwise. 


The following three examples show the results of three bit-manipulation 


intrinsic functions: 


Function 


10R(240,90) = 250 


IEOR(240,90) = 


IAND (240,90) 


170 | 


Binary Representation 
i 
TOR 0 
1 
1 


TEOQR _ 01011010 _ 
10101010 
11110000 

IAND . 01011010 

| 01010000 
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Table 3.18 shows the results of other bit-manipulation intrinsic functions. 


Table 3.18 


Bit-Manipulation Examples 


Function Reference 


ISHFT(IntA,2) 
ISHFT(IntA,-2) 
ISHA(IntA,3) 
ISHA(IntA, -3) 
ISHC(IntA,3) 
ISHC(IntA, -3) 
NOT(IntA) 
IBCLR(IntA, 4) 
IBSET(IntA,14) 
IBCHNG(IntA,5S) 
BTEST(IntA,2) 
BTEST(IntAé,3}) 
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IntA 


10010000 
10010000 
10000000 
10000000 
01110000 
01110000 
00011100 
00011100 
00011100 
00011100 
00011100 
00011100 


11000101 
11000101 
11011000 
11011000 
00000100 
00000100 
01111000 
01111000 
01111000 
01111000 
01111000 
01111000 


Result 


01000011 
00100100 
00000110 
11110000 
10000000 
10001110 
11100011 
00011100 
01011100 
00011100 
-FALSE. 
. TRUE. 


00010100 
00110001 
11000000 
00011011 
00100011 
00000000 
10000111 
01101000 
01111000 
01011000 


7 aay 


5. ee 


ee ee ee. 


came 


= ee RR OES 


Chapter 4 


The Input/Output (1/O) System 


4.1 Overview 97 
4.2 Introduction to the I/O System 97 
4.3 I/O Statements 98 


4.3.1 
4.3.2 
4.3.3 
4.3.3.1 
4.3.3.2 
4.3.4 
4.3.5 
4.3.6 
4.3.7 
4.3.7.1 
4.3.7.2 
4.3.7.3 
4.3.7.4 
4.3.7.9 
4.3.7.6 
4.3.7.7 
4.3.8 
4.3.9 
4.3.10 


4.3.11 


File Names (FILE =) 101 


Units (UNIT=) 102 


File Access Method (ACCESS = ) 105 
Sequential File Access 105 
Direct File Access 105 
File Structure (FORM =) 106 
Record Number (REC = ) 107 
The Edit List 107 
Format Specifier (FMT=) 109 


FORMAT Statement Label 
Integer- Variable Name 


109 
110 
110 
110 


Character Expression 
Character Variable 
Asterisk (*) 111 
Character or Noncharacter Array Name 
Character Array Element 112 
Input/Output List 112 

Input/Output Buffer Size (BLOCKSIZE =) 
Error and End-of-File Handling 
(IOSTAT=, ERR=, END=) 114 


File Sharing (MODE=, SHARE =) 117 


111 


114 


93 


4.4 Choosing File Types 119 

4.5 File Position 122 

4.6 Internal Files 122 

4.7 Carriage Control 124 

4.8 Formatted I/O 125 

4.8.1 Nonrepeatable Edit Descriptors 126 

4.8.1.1 Apostrophe Editing 127 

4.8.1.2  Hollerith Editing (H) 127 

4.8.1.3 Positional Editing: Tab, Tab Left, Tab Right 
(T, TL, TR) 128 

4.8.1.4 Positional Editing (X) 129 

4.8.1.5 Optional-Plus Editing (SP, SS, S) 129 

4.8.1.6 Slash Editing (/) 130 

4.8.1.7 Backslash Editing (\) 130 

4.8.1.8 Terminating Format Control (:) 130 

4.8.1.9  Scale-Factor Editing (P) 131 

4.8.1.10 Blank Interpretation (BN, BZ) 132 

4.8.2 Repeatable Edit Descriptors 133 

4.8.2.1 Integer Editing (I) 135 

4.8.2.2 Hexadecimal Editing (Z) 135 

4.8.2.3 Real Editing (F) 137 

4.8.2.4 Real Editing with Exponent (E) 139 

4.8.2.5 Real Editing for Wide Range of Values (G) 

4.8.2.6 Double-Precision Real Editing (D) 141 

4.8.2.7 Logical Editing (L) 142 

4.8.2.8 Character Editing (A) 142 

4.8.3 Interaction between Format and I/O List 


4.9 List-Directed I/Q 


94 


146 


143 


140 


4.9.1 
4.9.2 


List-Directed Input 
List-Directed Output 


147 
149 


95 


4.1 Overview 


The Input/Output (I/O) System 


This chapter explains the input/output (I/O) system used in Microsoft 
FORTRAN. The following kinds of information are available: 


For Information on: 
An overview of the 
input/output system 


A summary of the I/O 
statements 


Options available in I/O 
statements 


Carriage-control 
characters 


Formatted I/O 
Edit descriptors 


List-directed I/O 


See: 


Section 4.2, “Introduction to the 
I/O System” 


Section 4.3, “I/O Statements” 
Sections 4.3.1—4.3.11 
Section 4.7, “Carriage Control” 


Section 4.8, “Formatted I/O” 


Section 4.8.1, “Nonrepeatable Edit 
Descriptors,” and Section 4.8.2, 
“Repeatable Edit Descriptors” 


Section 4.9, “List-Directed I/O” 


4.2 Introduction to the I/O System 


In Microsoft FORTRAN’s I/O system, data are stored in files and can be 
transferred between files. There are two basic types of files: 


Type of File 


External files 


Internal files 


Description 


Either a device, such as the screen, the 
keyboard, or a printer; or, a file that 

is stored on a device, such as a file on 
a disk. 


A character substring, character variable, 
character array element, character array, 
or noncharacter array. For information 
on internal files, see Section 4.6, “Inter- 
nal Files.” 
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All files are made up of records, which are sequences of characters or 
values. See the Microsoft FORTRAN Compiler User’s Guide for information 
on the format of records in your operating system. 


Input is the transfer of data from a file to internal storage. Output is the 
transfer of data from internal storage to a file. You input data by reading 
from a file, and output data by writing to a file. 


4.3 I/O Statements 


I/O statements in FORTRAN transfer or edit data, manipulate files, or 
determine or describe the properties of the connections to files. Table 4.1 
lists the I/O statements. 


Table 4.1 
I/O Statements 


Statement Function 

BACKSPACE Positions a file back one record 

CLOSE Disconnects a unit 

ENDFILE Writes an end-of-file record 

INQUIRE Determines properties of a 
unit or named file 

LOCKING Controls access to information 


in specific direct-access files 
and/or records 


OPEN Associates a unit number with 
a file 

PRINT Outputs data to the asterisk 
(*) unit — 

READ Inputs data 

REWIND Repositions a file to its initial 
point 

WRITE Outputs data 
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Note 


In addition to the I/O statements, Microsoft FORTRAN includes an 

1/O intrinsic function, EOF(unitspec), which is described in Section 
3.11.3.18, “Ennd-of-File Function.” EOF returns a logical value that indi- 
cates whether there are any data remaining in the file after the current 
position. | 


In I/O statements, you can specify a series of options. The following, for 
example, is the syntax of the CLOSE statement: 


CLOSE ((UNIT = Junitspec 
LERR=errlabel] 
[IOSTAT = iocheck] 
LSTATUS =status]) 


The four options of the CLOSE statement are [UNIT = ]unitspec, 
[,ERR=errlabel], [JOSTAT = iocheck], and | STATUS = status]. The 
UNIT®= option specifies the unit to be closed, the ERR= and IOSTAT= 
options allow you to control error handling, and the STATUS= option lets 
you specify whether to keep or delete the file after disconnecting. The fol- 
lowing statement, for example, closes a file connected to unit 2, does not 
provide any special error handling, and uses the default value of the 
STATUS = option: 


CLOSE (UNIT=2) 


Options that are used in only one statement are described in the discus- 
sion of that statement in Section 5.3, “Statement Directory.” Twelve of the 
options in I/O statements, however, are used in more than one I/O state- 
ment. These options are described in this chapter. Table 4.2 lists these 
options, the I/O statements they are used in, and the section that de- 
scribes each. 
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Table 4.2 
I/O Options 


Option 


ACCESS = access 
editlist 


ERR = errlabel 


FILE = file 
[FMT = ]/ormatspec 


FORM = form 

tolist 

BLOCKSIZE = blocksize 
IOSTAT = iocheck 


MODE = mode 
REC = rec 


SHARE = share 
[UNIT = Junitspec 


1/0 Statements 


INQUIRE, OPEN 


FORMAT, PRINT, 


READ, WRITE 
All except PRINT 


INQUIRE, OPEN 


PRINT, READ, 
WRITE 


INQUIRE, OPEN 


PRINT, READ, 
WRITE 


INQUIRE, OPEN 
All except PRINT 


INQUIRE, OPEN 


LOCKING, READ, 


WRITE 
INQUIRE, OPEN 
All except PRINT 


Section 


4.3.3, “File Access Method” 
4.3.6, “The Edit List” 


4.3.10, “Error and End-of-File 
Handling” 


4.3.1, “File Names” 
4,3.7, “Format Specifier” 


4.3.4, “File Structure” 
4.3.8; “Input/Output List” 


4,3.9, “Input/Output Buffer Size” 
4.3.10, “Error and End-of-File 
Handling” 

4.3.11, “File Sharing” 

4.3.5, “Record Number” 


4.3.11, “File Sharing” 
4.3.2, “Units” 


The following list briefly summarizes the options listed in Table 4.2. Sec- 
tions 4.3.1—4.3.11 provide a complete discussion of these options. 


Option 
ACCESS = 


BLOCKSIZE= 


editlist 


100 


Description 


Specifies or determines the method of file 
access, which can be "SEQUENTIAL or 


*DIRECT?’. 


Specifies or determines the internal buffer size 


used in I/O. 


Lists edit descriptors. It is used in FORMAT 
statements and format specifiers (the 
FMT = /formatspec option) to describe the 


format of data. 
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ERR= Controls I/O error handling. The ERR= 
option specifies the label of an executable 
| statement. 
IOSTAT= Controls I/O error handling. The IOSTAT = 


option specifies a variable that is set to indi- 
cate whether an error has occurred. 


FILE = Specifies the name of a file. 

FMT= Specifies an editlist to use to format data. 

FORM= Specifies a file’s format, which can be 
"FORMATTED’, "UNFORMATTED,, or 
"BINARY’. 

iolist Specifies items to be input or output. 

MODE= Controls how other processes can access a file 


on networked systems. The MODE = option 
can be set to ’READWRITLH’, READ’, or 
WRITE’. 


SHARE = Controls how other processes can simulta- 
neously access a file on networked systems. 
The SHARE = option can be set to 
°>COMPAT’, ’DENYNONBR’, ’DENYWR’, 
"DENYRD’, or "DENYRW’. 


REC = Specifies the first (or only) record of a file to 
be locked, read from, or written to. 
UNIT= Specifies the unit to which a file is connected. 


4.3.1 File Names (FILE=) 


A file can have a name. File names must follow the rules listed in Section 
2.3, “Names.” The name of an internal file is the name of the character sub- 
string, character variable, character array element, character array, or non- 
character array that makes up the file. The name of an external file is a 
character string identical to the name by which the file is known to the 
operating system. (Note that some operating systems are case insensitive. ) 
External file names must obey the file-naming conventions of your operat- 
ing system, as well as the rules listed in Section 2.3, “Names.” 
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An external file can be bound to a system name by any one of the following 
methods: 


@ Ifthe file is opened with an OPEN statement, the name can be 
specified in the OPEN statement. 


e If the file is opened with an OPEN statement and no name is speci- 
fied in the OPEN statement, the file is considered a scratch or tem- 
porary file, and a default name is used. For the name used by your 
operating system, see the section on temporary scratch-file names in 
the Microsoft FORTRAN Compiler User’s Guide. 


® If the file is opened with an OPEN statement and the name is 
specified as all blanks, the name can be read from the command line 


or can be input by the user, as described in Section 5.3.38, “The 
OPEN Statement.” 


@ If the file is referred to in a READ or WRITE statement before 
it has been opened, an implicit open operation is performed, as 
described in Sections 5.3.43, “The READ Statement,” and 5.3.52, 
“The WRITE Statement.” The implicit open operation is equivalent 
to executing an OPEN statement with a name specified as all 
blanks. Therefore the name is read from the command line or can 
be input by the user, as described in Section 5.3.38, “The OPEN 
Statement.” 


4.3.2 Units (UNIT=) 


For most I/O operations, a file must be identified by a unit specifier. The 
unit specifier of an internal file is the same as the name of that internal file 
(see Section 4.6 for information on internal files). For an external file, you 
can connect a file to a unit specifier with the OPEN statement. Some exter- 
nal unit specifiers, listed below, are preconnected to certain devices and do 
not have to be opened. External units that you connect are disconnected 
when program execution terminates, or when the unit is closed by a 
CLOSE statement. 


The unit specifier is required for all I/O statements except PRINT (because 
this always writes to standard output), READ with a format specifier and 
an I/O list only (because this always reads from standard output), and 
INQUIRE by file (because this specifies the file name, rather than the unit 
with which the file is associated). 
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An external unit specifier must be either an integer expression or an aster- 
isk (*). The integer expression must be in the range — 32,767 to —1, or 0 to 
32,767. The following example connects the external file undamp to unit 
10 and writes to it: 
OPEN(UNIT=10,FILE=’undamp’” ) 
WRITE (10,*) “ Undamped Motion:’ 


The asterisk (*) unit specifier is preconnected and cannot be connected by 
an OPEN statement. It is the only unit specifier that cannot be reconnected 
to another file. The asterisk unit specifier specifies the keyboard when read- 
ing and the screen when writing. The following example uses the asterisk 
unit specifier to write to the screen: 


WRITE (*, “°(1X,°’Begin output.’’)7%) 


Microsoft FORTRAN has four preconnected external units: 


External Unit Description 

Asterisk (*) Always represents the keyboard and screen 
0 Initially represents the keyboard and screen 
5 Initially represents the keyboard 

6 Initially represents the screen 


The asterisk (*) unit cannot be connected to any other file, and attempting 
to close this unit produces an error during compilation. Units 0, 5, and 6, 
however, can be connected to any file by using the OPEN statement. If you 
close unit 0, 5, or 6, it is automatically reconnected to the keyboard and 
screen, the keyboard, or the screen, respectively. 


If you read or write to a unit that has been closed, the file is opened implic- 


itly, as described in Sections 5.3.48 and 5.3.52, “The READ Statement” and 
“The WRITE Statement.” 


103 


Microsoft FORTRAN Compiler Language Reference 


m= Examples 
In the following program, the character variable f name is an internal file: 


C The output of this program is 
C FM004.DAT 
CHARACTER#14 fname 


ifil=4 

WRITE (f name, 100)ifil 
100 FORMAT (“FM Sick S5-DA 1") 

WRITE (*, *) fname 

END 


The following example writes to the preconnected unit 6 (the screen), then 
reconnects unit 6 to an external file and writes to it, and finally reconnects 
unit 6 to the screen and writes to it. 


REAL a,b 
C Write to the screen (preconnected unit 6) 
WRITE(6,°(’% This is unit 6’/)%) 
C Use the OPEN statement to connect unit 6 to an 
C external file named COSINES 
OPEN(UNIT=2*3,FILE=’COSINES’ ,STATUS=’NEW? ) 
DG: 200 “e=..12623434 
b=CO0S(a) 
C Write to the file COSINES 
WRITE(6,100)a,b 
100 FURMAT(ESe1,FS<2)) 
200 CONTINUE 
C Reconnect unit 6 to the screen, by closing it 
CLOSE(6,STATUS=’KEEP’” ) 
C Write to the screen 
WRITE(6,°(’% Cosines completed’’)’) 
Sur * 
END 
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4.3.3 File Access Method (ACCESS =) 


The following sections describe the two methods of file access: sequential 
and direct. 


4.3.3.1 Sequential File Access 


Sequential files contain records whose order is the sequential order in 
which the records were written. 


All internal files use sequential access. You must also use sequential access 
for files associated with “sequential devices.” A sequential device is a device 
that does not allow explicit motion (other than reading or writing). The 
keyboard, screen, and printer are all sequential devices. 


Note that direct operations to files opened for sequential access are not 
allowed. 


4.3.3.2 Direct File Access 


Direct files are random-access files whose records can be read or written 

in any order. Direct-access files must reside on disk. You cannot associate a 
direct-access file with a sequential device, such as the keyboard, screen, or 
printer. 


Records are numbered sequentially, with the first record numbered 1. All 
records have the same length, specified by the RECL= option in the 
OPEN statement. Except for binary files, the number of bytes written to a 
record must be less than or equal to the record length. One record is writ- 
ten for each unformatted READ or WRITE statement. A formatted READ 
or WRITE statement can transfer more than one record using the slash (/) 
edit descriptor. For binary files, a single READ or WRITE statement can 
read or write as many records as required to accommodate the number of 
bytes being transferred. On output, incomplete formatted records are pad- 
ded with spaces. Incomplete unformatted and binary records are padded 
with undefined bytes (zeros). 


In a direct-access file, it is possible to write records out of order (for exam- 
ple, 9, 5, and 11, in that order) without writing the records in between. It is 
not possible to delete a record once written; however, a record can be over- 
written with a new value. 
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Reading a record that has not been written from a direct-access file is ille- 
gal and can produce a run-time error. If a record is written beyond the old 
terminating file boundary, the operating system attempts to extend direct- 


access files. This works only if there is room available on the physical 


device. 


Note that sequential operations to files opened for direct access are allowed. 
The operation takes place on the next record. The following statements, for 
example, read the third and fourth records of the file xxx: 


OPEN(1,FILE=’xxx’,ACCESS="DIRECT’ ,RECL=15 
+ FORM=’FORMATTED?) 
READ(1,’(315)*,REC=3)i,],k 
READ(1,’(31S5)’)l,m,n 


4.3.4 File Structure (FORM=) 


The structure of a file depends on two things: 


1. The access to the file, which is set by the ACCESS= option 
described in Section 4.3.3 


2. The form of the data in the file 


A file is structured in one of the following three ways: 
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Form 


Formatted 


Unformatted 


Description of Structure 


A file is a sequence of formatted records. Formatted 
records are a series of ASCII characters terminated 
by an end-of-record mark. The records in a format- 
ted sequential file can have varying lengths. All 
the records in a formatted direct file must be the 
same length. All internal files must be formatted. 


A file is a sequence of unformatted records. Unfor- oat 
matted records are a sequence of values. Unformat- 

ted direct files contain only this data, and each 

record is padded to a fixed length with undefined 

bytes. Unformatted sequential files also contain 
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information that indicates the boundaries of each 
record. 


Binary Binary sequential files are sequences of bytes with 
no internal structure. There are no records. The file 
contains only the information specified as I/O list 
items in WRITE statements referring to the file. 


Binary direct files have very little structure. A 
record length is assigned by the RECL= option of 
the OPEN statement. This establishes record boun- 
daries, which are used only for repositioning and 
padding before and after read and write operations 
and during BACKSPACE operations. These record 
boundaries do not, however, restrict the number of 
bytes that can be transferred during a read or write 
operation. If an I/O operation attempts to read or 
write more values than are contained in a record, 
the read or write operation is continued on the next 
record. Note that I/O operations that can be per- 
formed on unformatted direct files produce the 
same results when applied to binary direct files. 


In both sequential and direct binary files, data 
read must correspond in position to data previously 
written. 


See the Microsoft FORTRAN Compiler User’s Guide for information on how 
records are represented on your system. 


4.3.5 Record Number (REC =) 

The REC = option is used to specify the number of a specific record. In the 
LOCKING statement, rec specifies the first record to be locked or unlocked. 
In the READ and WRITE statements, rec specifies the first record to be 
read or written. The first record in a file is record number 1. 

4.3.6 The Edit List 


Edit lists describe the format of data. They are used in FORMAT state- 
ments and format specifiers. 


The edit list is a list of editing descriptions separated by commas. You 
may omit the comma between two list items if the resulting edit list is 


107 


Microsoft FORTRAN Compiler Language Reference 


not ambiguous. For example, you can usually omit the comma after a P edit 
descriptor or before or after the slash (/) edit descriptor without ambiguity. 


There are three types of editing descriptions: 


1. Nonrepeatable edit descriptors (nonrepeatable) 


2. Repeatable edit descriptors optionally preceded by a repeat specifica- 
tion (nrepeatable) 


3. An edit list, enclosed in parentheses, optionally preceded by a repeat 
specification (n(editlist)) 


A repeat specification is a nonzero-unsigned-integer constant. Edit descrip- 
tors are described in Sections 4.8.1, “Nonrepeatable Edit Descriptors,” and 
4.8.2, “Repeatable Edit Descriptors.” The following list gives examples of 
each type of editing description: 


Editing Description Examples 


nonrepeatable ‘Total = % 
3Hyes 
SP 
BN 
1 X 


nrepeatable 215 
I5 
10F8.2 
3A10 
EVize7Ee 


n(editlist) 2(1X,215) 
(1X, ‘Total =’, £12.72) 
(3A10, 10F8.2) 
920(10F8.2) 
2(13(21S5),SP,’Total =’,F8.2) 


Up to 16 levels of nested parentheses are permitted within the outermost 
level of parentheses in an editlist. 
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= Examples 
The following program contains two examples of editlist: 


INTEGER a,b 
REAL x,y 
DATA a: 75275. 'b. 79% 5 0 SES32. 677% -¥ F102 7817 
WRITE(*,100)a,b 
C The editlist in the following FORMAT statement is below the 
COO Sec 3. eet vical airs es ee ree 
100 PORMAT 1 A So 15.7 Bi = 155) 
WRITE(*,200)x,y 
C The editlist in the following FORMAT statement i5 below the 


C.WYPNeiss: . SSS Sera Ss Sos 
200 FORMAT(’ ’,2(F8.3,1Hm) ) 
STOP 7" 
END 


This program writes the following on the screen: 


A = 2B = 2 
5832.6/70m 1.028m 


Note that each formatted WRITE statement writes a blank to the terminal 
device as a carriage-control] character (described in Section 4.7). 


4.3.7. Format Specifier (FMT =) 


Format specifiers either contain an edit list or indicate what edit list to 
use to determine the format of data. Format specifiers are used in PRINT, 
READ, and WRITE statements. 


The following sections show the seven acceptable types of format specifiers 
and a generalized example of how each format specifier could be used. 


4.3.7.1 FORMAT Statement Label 


A format specifier can be the label of a FORMAT statement. In this case, 
the edit list specified in the FORMAT statement is used to format the data 
to be input or output. The following generalized example shows how a 
FORMAT statement label can be used to specify an edit list for a WRITE 
statement: 


WRITE (*,label) tolist 
label FORMAT(editlist) 
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The statement label /abel refers to the FORMAT statement at label. 


4.3.7.2 Integer-Variable Name 


An ASSIGN statement can be used to associate an integer variable with 
the label of a FORMAT statement. The integer variable can then be used 
as a format specifier, as follows: 


ASSIGN label TO var 
label FORMA T(editlist) 
WRITE(# ,var) iolist 


In the WRITE statement, the integer-variable name var refers to the 


FORMAT statement label, as assigned just before the FORMAT state- 
ment. For further information, see Section 5.3.1, “The ASSIGN Statement.” 


4.3.7.3 Character Expression 


An edit list can be written as a character expression, and that character 
expression can be used as a format specifier, as follows: : 


WRITE(+#,’(editlist)’)iolist 
The value of the character expression is the format for the data transfer. 


The character expression can be a character constant. It cannot be an 
expression involving concatenation of an operand whose length specifier 
is an asterisk in parentheses, unless that operand is the symbolic name 
of a constant. 


4.3.7.4 Character Variable 


An edit list can be written as a character expression, and that expression 
can be assigned to a character variable. The character variable is then used 
as the format specifier, as follows: 


CHARACTER <n. var 
var = ’(editlist)’ 
WRITE(é ,var)iolist 


In this example, the WRITE statement uses the character variable var as 
the format specifier for data transfer. 
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4.3.7.5 Asterisk (*) 


When an asterisk (*) is used as a format specifier, list-directed I/O is per- 
formed, as follows: 


WRITE(*, *) colist 


In this statement, the second asterisk indicates a list-directed I/O transfer. 
For more information, see Section 4.9, “List-Directed I/O.” 


4.3.7.6 Character or Noncharacter Array Name 


An edit list can be written as a character expression, and that expression 
can be assigned to an array. The array is then used as the format specifier, 
as follows: 


CHARACTER £ bytes array(dim) 
DATA array /’(editlist)’/... 
WRITE(# ,array)iolist 


The array 1s interpreted as all of the elements of the array concatenated in 
column-major order (see Section 5.3.12, “The DIMENSION Statement,” for 
information on order of array elements). If a noncharacter array is specified, 
the elements of the array are treated as equivalent character variables of 
the same length. 


The edit list of a Hollerith format specifier cannot contain an apostrophe 
edit descriptor or an H edit descriptor. 


= Example 


The following program uses a character array, CA, and a real array, RA, to 
write THE TEST SUCCEEDED twice: 


$NOTSTRICT 
CHARACTER*8 CA(4) 
REAL*8 RA(4) 


DATA CA/’(19H THE’,’ TEST SU’, ’CCEEDED)’,’ 7 
DATA RA/‘(19H THE’,’ TEST SU’,’CCEEDED)’,’ ‘/ 
WRITE(*,CA) 

WRITE (*,RA) 

END 
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4.3.7.7. Character Array Element 

An edit list can be written as a character expression, and that expression 
can be assigned to a character array element. The character array element 
is then used as the format specifier, as follows: 


CHARACTER £ bytes array(dim) 
array(i) = “(editlist)’ 
WRITE(# ,array(i))tolist 


In this example, the WRITE statement uses the character array element 
array(i) as the format specifier for data transfer. 


4.3.8 Input/Output List 


The input/output list, zolist, specifies the items to input or output. See Sec- 
tion 4.8.3 for an explanation of how the iolist and editlist interact. 


The following items can be in an iolist: 


Item Notes 

Nothing An tolist can be empty. The resulting record is 
either of zero length or consists only of padding 
characters. 


C Example of empt iolist 
WRITE(2,100 
100 FORMAT(’ Powys, Puyallup’) 


A variable These elements specify that the variable, array ele- 
name, an array- ment, or character substring should be input or out- 
element name, put. 


or a character- 


substring name C Example of variable and array 


C element in iolist 
READ(*,500)webb,bahb (webb) 
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Any expression 


An implied-DO 
list 
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An array name specifies all of the elements of the 
array, in column-major order. See Section 5.3.12, 
“The DIMENSION Statement,” for an explanation 
of how arrays are arranged in memory. 


C Example of array in iolist 

C (writes 0 Q. 0 0 0) 
INTEGER handle(5) 
DATA handle /5*#0/ 
WRITE(*,99)handle 

99 FORMAT(1X,515) 


Output lists in WRITE and PRINT statements can 
contain arbitrary expressions. 


Implied-DO lists have the following form: 
(iolist, dovar = start,stop[,inc]) 


Here, zolist is an input/output list (and can contain 
any of the items in this list, including another 
implied-DO list). The other variables are as 
described for implied-DO lists in Section 5.3.11, 
“The DATA Statement.” 


Items in an implied-DO list are analogous to state- 
ments within an ordinary DO loop. If an implied- — 
DO list and a DO loop have the same values of 
dovar, start, stop, and inc, then the items in the 
implied-DO list are read or written in the same 
order as the statements within the DO loop are 
executed. 


In a READ statement, the DO variable dovar (or 
anything associated with dovar) must not appear in 
the tolist in the implied-DO list. The variable dovar 
can, however, have been read in the same READ 
statement before the implied-DO list. 


C Examples of input and output with 
C implied-do list in iolist 
INTEGER handle(10), 


WRITE(*,*)’ Enter c et) and’ 
WRITE(*,*)’% handle(1) to handle({c)’ 
2 Oe ear Aatiae ee ea ace 

09 FORMAT(15,10(:, =o ay, 
RTT co) anal diate) 

99 FORMAT(1X,215) 
STOP. * 4 
END 
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4.3.9 Input/Output Buffer Size (BLOCKSIZE =) 


One way to control program size and speed at execution time is through the 
use of the BLOCKSIZE = option in the OPEN statement. The value of 
BLOCKSIZE is an integer expression specifying the internal buffer size for 
use in I/O. Because the specified buffer size is usually rounded up to the 
next block size, the BLOCKSIZE = option in the INQUIRE statement 
allows you to determine the actual buffer size used. 


See the Microsoft FORTRAN Compiler User’s Guide for specific information 
about block sizes and using the BLOCKSIZE = option with your operating 
system. 


4.3.10 Error and End-of-File Handling 
(IOSTAT=, ERR=, END=) 


If an error or end-of-file record is encountered during the processing of an 
I/O statement, the action taken depends on the presence and definition of 
the ERR=errlabel, IOSTAT = iocheck, and END=endlabel options. Note 
that encountering an end-of-file record is treated as an error by every I/O 
statement except READ. 


Since the PRINT statement does not allow any of these options to be speci- 
fied, an error that occurs during execution of a PRINT statement always 
produces a run-time error. 


Table 4.3 indicates what action is taken when an error or end-of-file record 


is encountered by a READ statement. Note that any time an error occurs 
during a READ statement, all the items in iolist become undefined. 
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Errors and End-of-File Records When Reading 


IOSTAT END ERR End-of-File 

Set Set Set Occurs 

No No No Run-time error is 
produced. 

No No Yes Go to errlabel. 

No Yes No Go to endlabel. 

No Yes Yes Go to endlabel. 

Yes No No Set tocheck negative 
and continue. 

Yes No Yes Set zocheck negative 
and continue. 

Yes Yes No Set iocheck negative 
and go to endlabel. 

Yes Yes Yes Set tocheck negative 


and go to endlabel. 
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Error, or Error and 


End-of-File, Occurs 


Run-time error is 
produced. 


Go to errlabel. 


Run-time error is 
produced. 


Go to errlabel. 


Set tocheck positive 
and continue. 


Set tocheck positive 
and go to errlabel. 


Set tocheck positive 
and continue. 


Set tocheck positive 
and go to erriabel. 


The following list shows what happens when an error (including encounter- 
ing an end-of-file record) occurs during any I/O statement other than 


READ or PRINT: 
If: 


Neither errlabel nor iocheck is 
present 


Only errlabel is present 


Only tocheck is present 


Both errlabel and iocheck are 
present 


Then: 


The program is terminated, with 
a run-time error message. 


Control is transferred to the 
statement at errlabel. 


The value of tocheck is set to 

a positive integer and control 
returns as if the statement had 
executed without error. 


The value of iocheck is set posi- 
tive and control is transferred to 


- the statement at errlabel. 
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If an I/O statement terminates without encountering an error or end-of-file 
record, and tocheck is specified, tocheck is set to zero. 


= Examples 


In the following program, none of the available options ERR=, IOSTAT=, 
or END= are set, so if an invalid value is entered for i, a run-time error is 
produced: 


INTEGER i 
WRITE(*,*) 
READ(*,*)i 

* ) 


*Please enter i’ 


The following program uses the ERR= option to prompt the user to enter a 
valid number: 


50 


100 


INTEGER i 

WRITE (*#,*)’Please enter i:’ 
READ(*,*,ERR=100)i 

WRITE(*,*)’This is i:%,i 

STOP: 4 -? 

CONTINUE 

WRITE(*,*)’Invalid value. Please enter new i: 
COTO: :50 

END © 


i 


The following program uses both the ERR= and IOSTAT= options to 
handle invalid input: 


=ae) 


100 
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INTEGER i,j 

DATA j /0/ 

WRITE(*,*)’Please enter i:’ 
READ(*,*,ERR=100,10STAT=] )i 

WRITEC*; *)*TDis 29 249° 505° Loatat«= *y-) 

STOP ’ 7% 

CONTINUE 

WRITE(*,*)’iostat = ’,j),’ Please enter new i: 
GOTO 50 

END 
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4.3.11 File Sharing (MODE=, SHARE =) 


In systems that allow multitasking or use networking, more than one pro- 
gram can attempt to access the same file at the same time. Two options 
(MODE= and SHARE=) in the OPEN statement allow you to control 
access to files. These options are also in the INQUIRE statement, so you 
can determine the access status of a file. 


The Value of: Determines: 
MODE= How the first process to open a file can use 
that file. 


You can choose to be able to read the file 
(?READ?’), write to the file (WRITE’), or do 
both CREADWRITE’). 


SHARE= How subsequent processes are allowed to 
access the file (while that file is still open). 


You can choose to allow subsequent processes 
to read the file (DENYWR’), write to the file 
CDENYRD?’), do both (DENYNONE’), or do 
neither (DENYRW’). You can also choose not 
to allow any processes, except the process that 
originally opened the file, to open the file 
CCOMPAT”). 


Table 4.4, “Mode and Share Values,” indicates the restrictions on opening 


a file that has already been opened with a particular value of mode and 
share. 
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Table 4.4 


Mode and Share Values 


Original Process Opened with: 


Concurrent Processes 
Can Be Opened with: 


MODE= And SHARE = MODE= And SHARE= 
"READWRITE’ "COMPAT’ "READWRITE’ "COMPAT’ by 
or READ’ or or ’READ’ or original process 
WRITE’ WRITE’ only 
"READWRITE’ "DENYRW’ Cannot be 
or "READ?’ or concurrently 
WRITE’ opened 
"READWRITE’ "DENYWR’ "READ’ "DENYNONE’ 
"READ’ "DENYWR’ "READ’ "DENYNONE’ or 
*DENYWR’ 
WRITE’ "DENYWR’ "READ’ "DENYNONPE’ or 
"‘DENYRD’ 
"READWRITE’ "DENYRD’ WRITE’ "DENYNONE’ 
"READ’ "DENYRD’ WRITE’ "DENYNONE’ or 
"*DENYWR’ 
WRITE’ "DENYRD’ WRITE’ *DENYNONFPE’ or 
‘DENYRD’ 
"READWRITE’ *DENYNONE’ "READWRITE’ or ’°DENYNONE’ 
, *"READ’ or 
WRITE’ 
"READ’ "DENYNONE’ "READWRITE’ or °DENYNONE’ or 
"READ’ or "DENYWR’ 
WRITE’ 
WRITE’ "DENYNONE’ "READWRITE’ or ‘DENYNONE?’ or 
"READ’ or "DENYRD’ 
WRITE’ 


If, for example, you have a file that is opened with MODE =’READ’ and 
SHARE =’DENYRD’, that file can also be opened with MODE =’WRITE’ 
and SHARE =’DENYNONEP’ or SHARE =’DENYWR’. 
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Suppose, for example, that you want several processes to read a file, and 
you want to ensure that no process updates the file while those processes 
are reading it. First, determine what type of access to the file you want to 
allow the original process. In this case, you want the original process only 
to read the file. Therefore, the original process should open the file with 
MODE =’READ?’. Now, determine what type of access the original process 
should allow other processes: in this case, other processes should only be 
able to read the file. Therefore, the first process should open the file with 
SHARE =’DENYWR’. Now, as indicated in Table 4.4, other processes can 
also open the same file with MODE=’READ’ and SHARE =’DENYWR’. 


4.4 Choosing File Types 


You can combine the available file properties in many ways to create many 
kinds of files. Two common file types are the following: 


1. Sequential, formatted files associated with the asterisk (*) unit 
(which represents the keyboard and screen). 


Note that, when reading from the asterisk (*) unit (the keyboard), 
you must terminate lines by pressing ENTER. To correct typing mis- 
takes, follow the conventions of your operating system. 


2. A named, sequential, formatted external file. 
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w Example 
The following example uses the two types of files described above: 


COPY A FILE WITH THREE COLUMNS OF INTEGERS, 
EACH 7 COLUMNS WIDE, FROM A FILE WHOSE NAME 
IS ENTERED BY THE USER TO ANOTHER FILE NAMED 
QUT.TXT, REVERSING THE POSITIOQNS OF THE 
FIRST AND SECOND COLUMNS. 

PROGRAM COLSWP 

CHARACTER*64 FNAME 


OOOQ0™NM 


C PROMPT TO THE SCREEN BY WRITING TO *. 
WRITE(*,900) 
300 FORMAT(’ INPUT FILE NAME - “) 


C READ THE FILE NAME FROM THE KEYBOARD BY 
C READING FROM *. 

READ(*,910) FNAME 
910 FORMAT (A) 


C USE UNIT 3 FOR INPUT FROM EXTERNAL FILE; ANY NUMBER 
C WILL DO. 
OPEN(3,FILE=FNAME) 


C USE UNIT 4 FOR QUTPUT TO SECOND EXTERNAL FILE; ANY 
C NUMBER EXCEPT 3 WILL DO. 
OPEN(4,FILE=’QUT.TXT’,STATUS=’UNKNOWN’® ) 


C READ AND WRITE UNTIL END OF FILE. 


100 READ(3,920,END=200)I,J,K 
WRITE (4,920)J,1,K 

920 FORMAT (317) 
GOTO 100 

200 WRITE (*,910) Done’ 
END 


The type of file you use depends on your application. The following list indi- 
cates some reasons for choosing other types of files: 


If: Then: 

You need random You must use direct-access files. A common 

access I/O example of this type of application is a data 
base. The form can be binary, formatted, or 
unformatted. 
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Your data are 
accessed only by 
Microsoft FORTRAN, 
and speed is 
important 


Data must be 
transferred without 
any system 
interpretation 


All 256 possible 
byte values (ASCII 
0 — 255) are to be 
transferred 


You are controlling 
a device with a one- 
byte (binary) 
interface 


Data must be 
transferred without 
any system 
interpretation, and 
will be read by non- 
FORTRAN programs 


You are reading a 
file that was not 
created by a 
Microsoft FORTRAN 


program 


The Input/Output (I/O) System 


Accessing binary and unformatted files is 
faster than accessing formatted files. 


Binary or unformatted I/O is most practical. 


Binary or unformatted I/O is necessary. 


Binary or unformatted I/O is necessary. In this 
situation, formatted I/O would interpret cer- _ 
tain characters (such as the ASCII representa- 
tion for RETURN) instead of passing them 
through to the program unaltered. The binary 
format may be preferable, since no record 
structure information is contained in the file. 


The binary format is recommended. Unformat- 
ted files are blocked internally, so the non- 
FORTRAN program must be compatible with 
this format to interpret the data correctly. 
Binary files contain only the data written 

to them. 


Binary I/O is recommended. Non-FORTRAN 
files usually have a different structure than 
FORTRAN files. A binary direct file opened 
with REC =1, for example, is very similar to a 
stream file in the Microsoft C library. You can 
move to a position in the file and read an arbi- 
trary sequence of values. Incomplete records 
don’t cause undefined values because the 
record size is 1. 
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4.5 File Position 


Opening a sequential file positions the file at its beginning. If the next I/O 
operation is a write operation, all old data in the file are discarded. The file 
position after sequential WRITE statements is at, but not beyond, the end- 
of-file record. 


Executing the ENDFILE statement, or executing a READ statement 

at the end of the file, positions the file beyond the end-of-file record and 
produces an error. Attempting to read the end-of-file record or past it pro- 
duces an error unless you have specified the END= option in a READ 
statement. 


4.6 Internal Files 


Most FORTRAN files are external; that is, they are a physical device, or 
they are a file that is known to the operating system. An internal file is a 
character substring, character variable, character array element, character 
array, or noncharacter array. You must follow these rules when using in- 
ternal files: 


@ Use only formatted, sequential I/O. 


e Use only the READ and WRITE I/O statements to refer to an 
internal file. 


@e Don’t use list-directed formatting. 


There are 2 basic types of internal files: 


Type of File Properties 
Character variable, The file has exactly one record, which is the 
character array same length as the variable, array element, 
element, character substring, or noncharacter array. Noncharac- 
substring, or ter arrays are allowed for compatibility with | 
-noncharacter array older versions of FORTRAN. 
Character array _ The file is a sequence of character array ele- 


ments, each of which is a record. The order of 
records is the same as the order of array ele- 
ments. All records are the same length: the 
length of array elements. 


122 


The Input/Output (I/O) System 


If less than an entire record is written to an internal file, the rest of the 
record is filled with blanks. Before an I/O statement is executed, internal 
files are positioned at the beginning of the file. 


With internal files, you can use the formatting capabilities of the I/O sys- 
tem to convert values between external character representations and 
Microsoft FORTRAN internal memory representations. That is, reading 
from an internal file converts the character values into numeric, logical, 
or character values; writing to an internal file converts values into their 
(external) character representations. 


Note 


The FORTRAN 66 DECODE statement has been replaced by the inter- 
nal READ function. The ENCODE statement has been replaced by the 
internal WRITE function. 


= Example 


C This example prompts for a 3-digit file id 

C and uses an internal file to create a file name 
CHARACTER fname*#64 
fname=’FILE eDAT* 
WRITE(*,*)’Enter 1-3 digit file identifier’ 
READ(*,+*)id | 
WRITE(fname(5:7),100)id 

100 FORMAT( 13.3) 
OPEN(1,file=fname,STATUS=‘NEW ) 


END 
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4.7 Carriage Control 


When a record is transferred to a terminal device, such as the screen or a 
printer, using formatted I/O, the first character of that record is interpreted 
as a carriage-control character, and is not printed. The characters 0, 1, +, 
and the blank character, have the effects indicated in Table 4.5. Any other 
character is treated like the blank character. If the first character of your 
record does not print, make sure it is not being interpreted as the carriage- 
control character. In the following program fragment, for example, the 
number 2 is interpreted as a carriage-control character, and is treated like 
the space character: 


WRITE(*,100) 
100 FORMAT(’25 years’) 


The fragment above produces the following output: 


> “years 


Table 4.5 


Carriage-Control Characters 


Character Effect 

Blank Advances one line. 

0 Advances two lines. 

if Advances to top of next page. 


The screen behaves as if this 
carriage-control character were 
ignored.* 


+ Does not advance. This can be 
used for overprinting. 


* When a 1 is sent to the screen as a carriage-control 
character, the program emits an ASCII form-feed character, 
a backspace, a blank, and a carriage return. This is because 
the form-feed character would otherwise appear as a graphic 
character on the screen. The effect is that the character is 
ignored. 
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Note that the first character is not treated as a carriage-control character in 
list-directed I/O. 


When writing terminal files, the end-of-record mark is normally not emitted 
until the next record is written. However, if a write operation to the screen 
is followed by a read operation from the keyboard, a new-line character is 
automatically emitted and the input line is positioned below the output 
line. To suppress the new-line character and display the input on the same 
line as the previous output, use the backslash (\) edit descriptor in the 
WRITE statement. The input appears at the end of the last line written. 
Since input lines always end with a new-line character, the next write 
operation always begins on a new line. Therefore, if the next operation to 
the console is a write operation, carriage control is adjusted to write one 
less end-of-record mark. | 


Note that the plus (+) carriage-control character has no effect if the previ- 
ous console operation was a read. 


4.8 Formatted I/O 


Ifa READ or WRITE statement includes a format specifier, the I/O state- 
ment is a formatted I/O statement. The remainder of this section discusses 

the elements of format specifiers, and the interaction between format speci- 
fiers and the I/O list. See Section 4.3.7 for information on format specifiers. 
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4.8.1 Nonrepeatable Edit Descriptors 


Table 4.6 summarizes the nonrepeatable edit descriptors. 


Table 4.6 
Nonrepeatable Edit Descriptors 


Form 
string 
nH 


Te 
TLe 
TRe 


kP 


BN 
BZ 


Name 


Apostrophe 
editing 
Hollerith 
editing 
Positional 
editing 


Positional 
editing 
Optional-plus 
editing 


Slash editing 


Backslash 
editing 


Format 
control 
termination 


Scale-factor 
editing 


Blank 
interpretation 


Use 


Transmits string to 
output unit 


Transmits next n 
characters to output unit 


Specifies position in 
record 


Specifies position in 
record 


Controls output of plus 
signs 


Positions to next record 
or writes end-of-record 
mark 


Continues same record 


If no more items in tolist, 
terminates statement 


Sets scale for exponents 
in subsequent F and E 
(repeatable) edit 
descriptors 


Specifies interpretation 
of blanks in numeric 
fields 


Used for 
Input 


Yes 


No 


No 


Yes 


Yes 


Used for 
Output 


Yes 
Yes 


Yes 


Yes 


Yes 


Yes 


Yes (to 
terminal and 
printer only) 


Yes 


Yes 


Sections 4.8.1.1—4.8.1.10 describe each nonrepeatable edit descriptor. 
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4.8.1.1 Apostrophe Editing 


m Syntax 
string 


If a format specifier contains a character constant, string, that string is 
transmitted to the output unit. Embedded blanks are significant; two adja- 
cent apostrophes (that is, single quotation marks) must be used to represent 
a single apostrophe within a character constant. Apostrophe editing cannot 
be used with READ statements. 


C These write statements both output ABC’DEF 

C (The leading blank i5 a carriage-control character) 
WRITE (*,970) 

970 FORMAT (% ABC’ ’DEF“) 
WRITE (*,°(°%% ABC’’’’DEF’’%)}7) 

C The following write also outputs ABC’DEF. No carriage- 

C control character is necessary for list-directed I/D 
WRITE(*,*)’ABC’ “DEF ’ 


4.8.1.2 Hollerith Editing (H) 


g# Syntax 
nH 


The nH edit descriptor transmits the next n characters, with blanks 
counted as significant, to the output unit. Hollerith editing can be used 
in every context where constants occur. 


The n characters transmitted are called a “Hollerith constant.” 


C These write statements both output ABC’DEF 

C (The leading blank i5 @ carriage-control character) 
WRITE (*,’(8H ABC’ ’DEF ) 7”) 
WRITE (*,960) 

960 FORMAT (8H ABC’DEF) 
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4.8.1.3 Positional Editing: Tab, Tab Left, Tab Right (T, TL, TR) 


m Syntax 
Tc, TLc, TRe 


The T, TL, and TR edit descriptors specify the position in the record to 
which or from which the next character will be transmitted. The position 
specified by a T edit descriptor may be in either direction from the current 
position. This allows a record to be processed more than once on input. Note 
that moving the position backward more than 512 bytes (characters) is not 
recommended. 


The Tc edit descriptor specifies that the transmission of the next character 
is to occur at the cth character position. The TRc edit descriptor specifies 
that the transmission of the next character is to occur c characters beyond 
the current position. The TLc edit descriptor specifies that the transmission 
of the next character is te occur c characters prior to the current position. 


If TLe specifies a position before the first position of the record, TLe editing 
causes transmission to or from position 1 of the current record. 


If you use these edit descriptors to move to a new position that is to the 
right of the last data item transmitted, and a further data item is written, 
the space between the end of data in the record and the new position is 
filled with spaces. For example, consider the following program: 


WRITE(*,100) 5,9 
100 FORMAT (15,20X,TL10,15) 
END 


This program produces the following output (each x represents a space): 
XXXXSXXXXXXXXXXXXXXI 


Be careful when using these edit descriptors if you read data from files that 
use commas as field delimiters. If you move backward in a record by using 
TLc or by using Tc where c is less than the current position in the record, 
commas are disabled as field delimiters. If the format controller encounters 
a comma after you have moved backward in a record with Tc or Tc, a 
run-time error is produced. If you want to move backward in a record 
without disabling commas as field delimiters, you can continue to the end- 
of-record mark, and then use the BACKSPACE statement to move to the 
beginning of the record. 
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4.8.1.4 Positional Editing (X) 


@ Syntax 
nX& 


The nX edit descriptor advances the file position n characters. On output, if 
the nX edit descriptor moves past the end of data in the record, and if there 
are further items in the iolist, blanks are output, as described for the Tc 
and TRe edit descriptors. 


C This writes 1 5 10 15 on the screen 
WRITE(*,100) 

100 FORMATAT A 5 1 Oks? Ss Ok" 10" 3k 215) 

C This writes zogoZ0Gozogo ! on the screen 
WRITE(*,10 

10 FORMAT(1X,’%zogozogozogo’,TL8,’20G’ ,10X, “!") 


4.8.1.5 Optional-Plus Editing (SP, SS, S) 


The SP, SS, and S edit descriptors can be used to control optional-plus 
characters in numeric output fields. SP causes output of the plus sign in all 
subsequent positions that the processor recognizes as optional-plus fields. 
SS causes plus-sign suppression in all subsequent positions that the proces- 
sor recognizes as optional-plus fields. S restores SS, the default. 


C The following statements write 

C 2574 +251 251 +251 251 
INTEGER i 
i = 251 
WRITE ( * 


1008 Pe ya 
100 FORMAT (1X, 


li, OP 4) 545o¢-l58SPr 51555455) 


C The following statements write 
G ~673E+4+.6/73E+4 .673E+4+.673E+4 .673E+4 
REAL r 
r = 67.3E2 
WRITE(*,100)r jr ,r,r,r 
100 FORMAT (CTX, ES:3E1,SP,E8.:3E1,55,E83E14SP,.68.381,5;ES.3E1) 
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4.8.1.6 Slash Editing (/) | 


The slash indicates the end of data transfer on the current record. On input, 
the file is positioned to the beginning of the next record. On output, an 
end-of-record mark is written, and the file is positioned to write on the 
beginning of the next record. 


C The following statements write a column and a row 
WRITE(*,100) 
100 FORMAIC® ~<G9rOW" 37h -O" p65 EP MS igh ges Sig 


The output of the example above is: 


row 


c 
fe) 
] 
u 
m 
n 


4.8.1.7 Backslash Editing (\) 


The backslash edit descriptor is used only for formatted output to terminal 
devices, such as the screen or a printer. It is ignored in all other situations. 


Normally when the format controller terminates, an end-of-record mark is 
written. If the last edit descriptor encountered by the format controller is a 
backslash (\), no end-of-record mark is written, so subsequent I/O state- 
ments can continue writing to the same record. 


This mechanism can be used to write a prompt to the screen and then read 
a response from the same line, as in the following example: 


f 


WRITE (*,°7(A ie ) “Input an integer --> 
READ (*,’(BN,I6)‘%) I 

4.8.1.8 Terminating Format Control (:) 

The colon (:) edit descriptor terminates format control if there are no more 


items in the iolist. This tool can be used to suppress output when some of 
the characters in the format do not have corresponding data in the Zolist. 
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C The following example writes 
C a= 3.20 b= 99 

REAL a,b,c,d 

DATA a /S227s. (Bb 7290715157 

WRITE(*,100)a,b 
100 FURMAT(* sa="* 65.2425" .b=* oF 

+ et Noe IP eee. Se 

SIP 4 

END 


4.8.1.9 Scale-Factor Editing (P) 


The &P edit descriptor sets the scale factor for subsequent F and E edit 
descriptors until the next RP edit descriptor is encountered. At the start of 
each I/O statement, the scale factor is initialized to zero. The scale factor 
affects format editing in the following ways: 


@® On input, with F and E editing (if no explicit exponent exists in 
the field), and on output, with F editing, the externally repre- 
sented number equals the internally represented number multi- 
plied by 10, 

@ On input, with F and E editing, the scale factor has no effect if 
there is an explicit exponent in the input field. 


@ On output, with E editing, the real part of the quantity is output 
multiplied by 105, and the exponent is reduced by & (effectively 
altering the column position of the decimal point but not the 
value output). 


m Examples 


The following program fragment uses scale-factor editing when reading: 


read (*#,100) a,b,c,d 

100 Formattt10s6,. Ty flbv65, THs6. Teng TV0c6) 
write (*,200) a,b,c,d 

200 format (4f11.3) 
end 
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Assume that the following data are entered: 


12340000 12340000 12340000 12340000 
12.34 i iaaree i 12«34 Rare 
12.34e0 Levstev 12.34e0 12.34e0 
12.34e3 lex sees 12s 3¢es 12.3463 


The program outputs the following: 


12.340 1.234 1.234 1234.000 
12.340 1.234 ness 1234.000 
12.340 12.340 12.340 12.340 
12340.000 12340.000 12340.000 12340.000 


The following program fragment uses scale-factor editing when writing: 


a = 12.34 


write (*,100) a,a,a,a,a,a , 
100 format(1x,f9.4,e11.4e2,1p,f9.4,e11.4e2,-2p,f9.4,e11.4e2) 

stop ’ ° 

end 


The program has the following output: 


12.3400 .1234E+02 123.4000 1.2340E+01 .1234 .0012E+04 


4.8.1.10 Blank Interpretation (BN, BZ) 


The edit descriptors BN and BZ specify the interpretation of blanks in 
numeric input fields. 


The BZ edit descriptor makes blanks, other than leading blanks, identical 
to zeros. Note that the blanks following the E or D in real-number input 
are ignored, whatever blank interpretation is in effect. 


The BN edit descriptor “ignores” blanks; that is, it takes all the nonblank 
characters in the field and treats them as if they were right justified, 
adding as many leading blanks as there were blanks in the field. 


The default, BN, is set at the start of each I/O statement, unless the 
BLANK = option was specified in the OPEN statement. If you specify a 
BZ edit descriptor, BZ editing is in effect until the BN edit descriptor is 
specified. 
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For example, look at the following program fragment: 


READ(*,100) | 
100 FORMAT (BN,I6) 


If you enter any one of the following three records, terminated with 
an ENTER, the READ statement would interpret that record as the 
value 1 23: 


123 
123 
123 456 


Because the repeatable edit descriptor associated with the I/O list item I 

is 16, only the first six characters of each record are read (three blanks fol- 
lowed by 123 for the first record, and 123 followed by three blanks for the 
last two records). Then, because blanks are ignored, all three records are 
interpreted as 123. 


The following example shows the effect of BN editing with an input record 
that has fewer characters than the number of characters specified by the 
edit descriptors and iolist. Suppose you enter 502, followed by ENTER, in 
response to the following READ statement: 


READ (*,’{15)’) I 


First, the record 502 is padded on the right with blanks to the required 
length, 5. If BZ editing were in effect, as it is by default, those two blanks 
would be interpreted as zeros, and the record would be equal to 50200. 
However, with BN editing in effect, the nonblank characters (502) are 
right justified, so the record is equal to 502. 


4.8.2 Repeatable Edit Descriptors 


The I (integer), Z (hexadecimal), F (single-precision real), EK (exponent real), 
G (real with optional exponent), and D (double-precision real) edit descrip- 
tors are used for I/O of numeric data. The following general rules apply to 
all numeric edit descriptors: 


@ On input, leading blanks are not significant. Other blanks are inter- 
preted differently depending on whether BN or BZ is in effect, but 
fields that are all blank always become the value 0. Plus signs are 
optional. The blanks supplied by the file system to pad a record to 
the required size are also not significant. 
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e On input with F, E, G, and D editing, an explicit decimal point 
appearing in the input field overrides the edit-descriptor specifica- 
tion of the decimal-point position. 


® On output, the characters generated are right justified in the field 
and padded by leading blanks, if necessary. 


@ On output, if the number of characters produced exceeds the field 
width or the exponent exceeds its specified width, the entire field is 
filled with asterisks. If a real number contains more digits after the 
decimal point than are allowed in the field, the number is rounded. 


@ When reading with I, Z, F, E, G, D, or L edit descriptors, the input 
field may contain a comma that terminates the field. Reading of the 
next field will start at the character following the comma. The miss- 
ing characters are not significant. For example, consider the follow- 
ing READ statement: 


READ (*,’(315)’) I,J,K 


Entering the following data will result in I = 1, J = 20, and 
K = 3: 


Lgoce: 3 Sg 


Do not use this feature if you wish to rely on explicit positional edit- 
ing (that is, using the T, TL, TR, or nX edit descriptors.) 


® Two successively interpreted edit descriptors of the types F, E, G, 
and D are used to specify the editing of complex numbers. The types 
may be used in combination. The first edit descriptor specifies the 
real part of the complex number; the second specifies the imaginary 
part. 


® Nonrepeatable edit descriptors may appear between repeatable edit 
descriptors. 


The following sections describe each repeatable edit descriptor. 
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4.8.2.1 Integer Editing (I) 


m= Syntax 
Iwl.m] 


The Iw and Iw.m edit descriptors must be associated with an tolist item 
that is an integer. The field is w characters wide. On input, an optional sign 
may appear in the field. If the optional unsigned integer m is specified, 
input is the same as Iw, but output is padded with leading zeros up to 
width m. For example, consider this statement: 


WRITE (#574 1%515315.3)7)525 
It prints the following on the screen: 


5 005 
4.8.2.2 Hexadecimal Editing (Z) 


@ Syntax 
Zw] 


The Z edit descriptor is used for hexadecimal editing. During editing, in- 
ternal data is processed four bits at a time. The external field is composed 
of hexadecimal characters (0—9 and A—F). Each byte of data corresponds 
to two hexadecimal characters (for example, ’ X ’ corresponds to the hexa- 
decimal characters 58). 


The optional field width, w, specifies the number of hexadecimal characters 
to be read or written. If w is omitted, the field width defaults to 2*n, where 
n is the length of the zolist item in bytes. For example, an INTEGER*4 
type is represented by eight hexadecimal characters. 


On output, character data types are written in the same order in which 
they appear in memory. For numeric and logical types, bytes are output in 
order of significance, that is, from the most significant on the left to the 
least significant on the right. The INTEGER *2 value 10, for example, will 
be output as OOOA, although the order of the bytes in memory on an 8086 is 
actually OAOO. 
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The following rules of truncation and padding apply. The value n is the 
length of the zolist item in bytes: 


Operation Rule 


Output If w > 2*n, the 2*n hexadecimal characters are 
right justified and leading zeros are added to make 
the external field width equal to w. 


If w <= 2*n, the w rightmost hexadecimal charac- 
ters are output. 

Input If w >= 2*n, the rightmost 2*n hexadecimal char- 
acters are taken from the input field. 


If w < 2*n, the w hexadecimal characters from the 
external field are treated as though enough leading 
zeros were present to make the external field width 
equal to 2*n. 


Blanks in an input field are treated as zeros. 

To edit complex numbers, two Z edit descriptors must be used. The first edit 
descriptor specifies the real part of the complex number; the second specifies 
the imaginary part. 

& Kxamples 


The following example demonstrates hexadecimal editing for output: 


CHARACTER*2 ALPHA 
INTEGER*2 INUM 


ALPHA=‘Y2Z* 

INUM=4096 

WRITE(*,°{1X%,2,1X,22,1X,26)%) ALPHA, ALPHA, ALPHA 
WRITE (*,°(1X,2,1X%,22,1X,26)’%) INUM, INUM, INUM 


The above example prints the following on the screen: 


S9SA 5A 00595A 
1000 00 001000 
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For an example of input, suppose the input record is 595A (hexadecimal 
characters), and the iolist item has CHARACTER #2 type. The record 
would be read as follows: 


Edit Descriptor Value Read 
Z YZ 
Ze OY 
Z6 YZ 


4.8.2.3 Real Editing (F) 


w Syntax 
Fw.d 


The edit descriptor Fw.d must be associated with an tolist item that is a 
single- or double-precision real number. The field is w characters wide, with 
a fractional part d digits wide. The input field begins with an optional sign 
followed by a string of digits that may contain an optional decimal point. If 
the decimal point is present, it overrides the d specified in the edit descrip- 
tor; otherwise, the rightmost d digits of the string are interpreted as follow- 
ing the decimal point (with leading blanks converted to zeros, if necessary). 
After these digits is an optional exponent that must be one of the following: 


@ + (plus) or — (minus) followed by an integer 


@ E followed by zero or more blanks, followed by an optional sign, 
followed by an integer 


An example is the following READ statement: 


READ(*,80)xnum 
80 FORMAT(F8.3) 
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The above statement reads a given input record as follows: 


Input Number Read 
5 .005 
-246801 -246.801 
56789 5.678 
-28E2 -2.800 


The output field occupies w characters. One character is a decimal point, 

so this leaves w—1 characters available for digits. If the sign is negative, it 
must be included, leaving only w—2 characters available. Out of these w—1 
or w—2 characters, d characters will be used for digits to the right of the 
decimal point. The remaining characters will be blanks or digits, as needed, 
in order to represent the digits to the left of the decimal point. 


The value output is controlled both by the zolist item and the current scale 
factor. The output value is rounded rather than truncated. 
= Example 


For example, look at the following program: 


n 
4 1V234956/75.736-/59. S6Ett/ar- /-Se6ac7 


~ ™ 


? 
} 
a 


200 FORMAT 


The above program prints the following five lines on the screen: 


12345.68 


RHHHEHRKH YE 


745.260) 
-365.00 
12345.712345680.0 -45.6 “Sooe0 
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4.8.2.4 Real Editing with Exponent (E) 


m= Syntax 
Ew.d|Ee] 


The field is w characters wide. The e has no effect on input. The input field 
for the E edit descriptor is identical to that described by an F edit descrip- 
tor with the same w and d. | 


The form of the output field depends on the scale factor (set by the P edit 
descriptor) in effect. For a scale factor of 0, the output field is a minus sign 
(if necessary), followed by a decimal point, followed by a string of digits, fol- 
lowed by an exponent field for exponent exp, having one of the forms shown 
in Table 4.7. 


Table 4.7 


Forms of Exponents: E Edit Descriptor 


Absolute Value 
Edit Descriptor of Exponent Form of Exponent 


Ew.d lexp| <= 99 E followed by plus or 
minus, followed by the 
two-digit exponent 


Ew.d 99 < lexp| <= 999 Plus or minus, followed 
by the three-digit 
exponent 

Ew.dEe lexp| <= (10°)~1 E followed by plus or 


minus, followed by e 
digits, which are the 
exponent with possible 
leading zeros 


The form Ew.d must not be used if the absolute value of the exponent to be 
printed exceeds 999. 


The scale factor controls the decimal normalization of the printed E field. 
If the scale factor, k, is greater than —d and less than or equal to 0, then 
the output field contains exactly k leading zeros after the decimal point and 
d+ k significant digits after this. If (0<k<d+2), then the output field 
contains exactly & significant digits to the left of the decimal point and 
(d—k-—1) places after the decimal point. Other values of & are errors. 
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4.8.2.5 Real Editing for Wide Range of Values (G) 


= Syntax 


Gw.d[Ee] 


For either form, the input field is w characters wide, with a fractional part 
consisting of d digits. If the scale factor is greater than 1, the exponent part 
consists of e digits. 


G input editing is the same as F input editing. G output editing corre- 
sponds to either E or F editing, depending on the magnitude of the data. 
Tables 4.8 and 4.9 show how the G edit descriptor is interpreted. 
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Table 4.8 


Interpretation of G Edit Descriptor 


Data Magnitude 


m<0.1 


O01<=m<il 


1l<=m< 10 (Le, 
jo?@-M<Hame 19¢-(¢-D) 


109 eam = 10 
10° <= m 


Table 4.9 


Interpretation 


Guw.d=Ew.d 
Gw.d = F(w — 4).d,4(’ ’) 
Gw.d=F(w — 4).(d—1),4¢ ’) 


Gw.d _ Fw 4).1,4( ’) 
Gw.d = F(w — 4).0,47 ’) 
Gw.d=Ew.d 


Interpretation of GE Edit Descriptor 


Data Magnitude 


m< 0.1] 
01<=m<il 


1<=m< 10 Ge, 


10°¢-2) <= m < 107 Y) 
10 tS ae 
10!” 2. 


Interpretation 


Guw.dEe= Ew.d 
Gw.dEe = F(w — e— 2).d,(e+2)( ’) 
Gw.dEe = F(w — e— 2).(d-1),(e +2)? ’) 


Gw.dEe = F(w — e— 2).1,(e +2) ’) 
Gw.dEe = F(w —e— 2).0,(e + 2)(’ ’) 
Gw.dEe=Ew.d 
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4.8.2.6 Double-Precision Real Editing (D) 


=m Syntax 
Dw.d 


The I/O list item associated with a D edit descriptor must be a double- 
precision real number. All parameters and rules for the E edit descriptor 
apply to the D edit descriptor. 


The field is w characters wide. The input field for the D edit descriptor is 
identical to that described by an F edit descriptor with the same w and d. 


The form of the output field depends on the scale factor (set by the P edit 
descriptor) in effect. For a scale factor of 0, the output field is a minus sign 
(if necessary), followed by a decimal point, followed by a string of digits, 
followed by an exponent field for exponent exp, in one of the forms shown 
in Table 4.10. 


Table 4.10 


Forms of Exponents: D Edit Descriptor 


Absolute Value 
Edit Descriptor of Exponent Form of Exponent 


Dw.d lexp| <= 99 D followed by plus or 
7 minus, followed by the 
two-digit exponent 
Dw.d 99 < lexp| <= 999 Plus or minus, followed 
by the three-digit 
exponent 


The form Dw.d must not be used if the absolute value of the exponent to be 
printed exceeds 999. 


The scale factor controls the decimal normalization of the printed D field. 
If the scale factor, k, is greater than —d and less than or equal to 0, then 
the output field contains exactly k leading zeros after the decimal point and 
d+k significant digits after this. If (0 < k < d+2), then the output field 
contains exactly & significant digits to the left of the decimal point and 
(d—k-—1) places after the decimal point. Other values of & are errors. 
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4.8.2.7 Logical Editing (L) 


m@ Syntax 
Lw 


The field is w characters wide. The iolist element associated with an L edit 
descriptor must be of type logical. On input, the field consists of optional 
blanks, followed by an optional decimal point, followed by T (for true) or F 
(for false). Any further characters in the field are ignored, but accepted on 
input, so that .TRUE. and .FALSE. are valid inputs. On output, w—1 
blanks are followed by either T or F, as appropriate. 


4.8.2.8 Character Editing (A) 


mw Syntax 
Alw] 


If w is omitted, w equals the number of characters in the tolist associated 
item. The iolist item may be of any type. If it is not of type CHARACTER, 
it is assumed to have one character per byte. 


When the iolist item is of type INTEGER, REAL, or LOGICAL, Hollerith 
data types can be used. On input, the iolist item becomes defined with Hol- 
lerith data; on output, the iolist item must be defined with Hollerith data. 


On input, if w exceeds or equals the number of characters in the iolist ele- 
ment, the rightmost characters of the input field are used as the input char- 
acters; otherwise, the input characters are left justified in the input tolzst 
item and trailing blanks are provided. 


If the number of characters input is not equal to w, then the input field will 
be filled in with blanks or truncated on the right to the length of w before 
being transmitted to the iolist item. For example, look at the following pro- 
sram fragment: 


CHARACTER*10 C 
READ(*,’(A15)") C 
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Assume the following thirteen characters are typed in at the keyboard: 
ABCDEFGHIJKLM 
The following two steps will occur: 


1. The input field will be filled to fifteen characters: 
“ABCDEFGHIJKLM 7% 


2. The rightmost ten characters will be transmitted to the tolzst 
element C: 


‘FGHIJKLM 7” 


On output, if w exceeds the number of characters produced by the zolist 
item, leading blanks are provided; otherwise, the leftmost w characters of 
the iolist item are output. 


4.8.3 Interaction between Format and I/O List 


If an iolist contains at least one item, at least one repeatable edit descriptor 
must exist in the format specification. The empty edit specification, ( ), can 
be used only if no items are specified in the iolist. When writing with an 
empty edit specification, a formatted WRITE statement writes carriage 
return and line feed, and a binary WRITE statement writes nothing.A 
READ statement with an empty edit specification skips to the next record. 


If you read a record in which the total number of characters in the input 
record is less than the total number of characters specified by the edit 
descriptors and tolist, the following two things occur: 


1. The record is padded with blanks on the right to the required 
length. 


2. BN editing goes into effect. See Section 4.8.1, “Nonrepeatable Edit 
Descriptors,” for an explanation of BN editing. 


For example, consider the following READ statement: 


READ(*,’(15)%) 1 
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Assume that you enter the following as input corresponding to that READ 
statement: 


=) 


The total number of characters in the input record is two (a blank and a 
5). The record is padded on the right with three blanks, but the additional 
blanks are ignored. The input record is thus interpreted as 5, instead of 
5000. 


Each item in the tolist is associated with a repeatable edit descriptor during 
the I/O statement execution. Nonrepeatable edit descriptors do not become 
associated with items in the iolist. 


Note 


Two repeatable edit descriptors are required in the FORMAT state- 
ment or format descriptor for each complex data item in the iolzst. 


During the formatted I/O process, the format controller scans and processes 
the format items from left to right. If the format controller encounters: 


e@ A repeatable edit descriptor, and a corresponding item appears in 
the iolist: 
The item and the edit descriptor are associated, and I/O of that item 
proceeds under the format control of the edit descriptor. 

e A repeatable edit descriptor, and no corresponding item appears in 
the iolist: 


The format controller terminates I/O. For the following statements, 
for example: 


T=5 

WRITE (*,10) I | 
10 FORMAT (144°) = “los 409= *,[S2"7k=. 7.75) 
the output would look like this: 
[= S5J= 


The output terminates after J= because no corresponding item for 
the second 15 appears in the iolisét. 
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@ The matching final right parenthesis of the format specification, and 
there are no further items in the iolist: 


The format controller terminates I/O. 


® A colon (:) edit descriptor, and there are no further items in the 
tolist: 


The format controller terminates I/O. 


e A colon (:) edit descriptor, but there are further items in the iolist: 


The colon edit descriptor is ignored. 


@ The matching final right parenthesis of the format specification, and 
there are further items in the iolist: 


The file is positioned at the beginning of the next record and the 
format controller continues by rescanning the format, starting at 
the beginning of the format specification terminated by the last 
preceding right parenthesis. 


If there is no such preceding right parenthesis, the format controller 
rescans the format from the beginning. Within the portion of the 
format rescanned, there must be at least one repeatable edit 
descriptor. 


If the rescan of the format specification begins with a repeated 
nested format specification, the repeat factor indicates the number 
of times to repeat that nested format specification. The rescan does 
not change the previously set scale factor or the BN or BZ blank 
control in effect. 


When the format controller terminates on input, the remaining characters 
of the record are skipped. When the format controller terminates on output, 
an end-of-record mark is written, unless the backslash edit descriptor is 
used on a terminal! file. 


For units connected to terminal devices, the end-of-record mark is not writ- 
ten until the next record is written to the unit. If the device is the screen, 
you can use the backslash edit descriptor to suppress the end-of-record 
mark. For information on the backslash edit descriptor, see Section 4.8.1.7. 
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4.9 List-Directed I/O 


A list-directed record is a sequence of values and value separators. Fach 
value in a list-directed record must be one of the following: 


e A constant, optionally multiplied by an unsigned-nonzero-integer 
constant. For example, 5, or 2*5 (two successive fives) are both 
acceptable. 


e A null value, optionally multiplied by an unsigned-nonzero-integer 
constant. For example, 5* is five successive null values. 


Except in string constants, none of these may have embedded blanks. 
Each value separator in a list-directed record must be one of the following: 
e A comma (,). 


@ A slash (/). 


A slash (/) encountered as a value separator during execution of a 
list-directed input statement stops execution of that statement after 
assignment of the previous value. Any further items in the input 
list are treated as if they were null values. 


@® One or more contiguous blanks between two constants or after the 
last constant. 


Blanks next to value separators are ignored. For example,S , 6 / 7 is 
equivalent to 5,6//7. 


Note 


List-directed I/O to or from internal files is prohibited by the ANSI 
standard. 
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4.9.1 Laist-Directed Input 


In most cases, all the input forms available for formatted I/O are also avail- 
able for list-directed formatting. This section describes all of the exceptions 


to this rule. 


The following rules apply to list-directed input for ail values: 


e The form of the input value must be acceptable for the type of the 


input list item. 


e Blanks are treated as separators and never as zeros. 


@ Embedded blanks can be used only within character constants, as 
specified in the list below. 


Note that the end-of-record mark has the effect of a blank, except 
when it appears within a character constant. 


In addition to the rules above, the following restrictions apply to the speci- 


fied values: 
Type of Value 


Single- or double- 
precision real 
constants 


Complex constants 


Logical constants 


Character constants 


Restrictions 


A real or double-precision constant must be a 
numeric input field, that is, a field suitable for 
F editing. It is assumed to have no fractional 
digits unless there is a decimal point within 
the field. 


A complex constant is an ordered pair of real 
or integer constants separated by a comma 
and surrounded by opening and closing 
parentheses. The first constant of the pair is 
the real part of the complex constant, and the 
second is the imaginary part. 


A logical constant must not include either 
slashes or commas among the optional charac- 
ters permitted for L editing. 


A character constant is a nonempty string of 
characters enclosed in single quotation marks. 
Each single quotation mark within a character 
constant must be represented by two single 
quotation marks, with no intervening blanks. 
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Null values 


Character constants may be continued from 

the end of one record to the beginning of the 

next; the end of the record doesn’t cause a 

blank or other character to become part of the — 
constant. The constant may be continued on as 

many records as needed and may include the 

blank, comma, and slash characters. 


If the length n of the list item is less than or 
equal to the length m of the character con- 
stant, the leftmost n characters of the latter 
are transmitted to the list item. 


If n is greater than m, the constant is trans- 
mitted to the leftmost m characters of the list 
item. The remaining n minus m characters of 
the list item are filled with blanks. The effect 
is the same as if the constant were assigned 
to the list item in a character assignment 
statement. 


You can specify a null value in one of three 
ways: 


1. No characters between successive value 
separators 


2. No characters preceding the first value 
separator in the first record read by each 
execution of a list-directed input statement 


3. Ther* form (for example, 10* is 
equivalent to 10 null values) 


A null value has no effect on the definition 
status of the corresponding input list item. If 
the input list item is defined, it retains its pre- 
vious value; if it is undefined, it remains so. 


A slash (/) encountered as a value separator 

during execution of a list-directed input state- 

ment stops execution of that statement after 

the assignment of the previous value. Any 

further items in the input list are treated as if 

they were null values. co 
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Blanks All blanks in a list-directed input record are 
| considered to be part of some value separator, 
except for the following: 


@ Blanks embedded in a character constant 


@ Leading blanks in the first record read 
by each execution of a list-directed input 
statement unless immediately followed by 
a slash (/) or comma (,) 


= Example 


C This example uses list-directed input and output 
REAL a 
INTEGER i 
COMPLEX c 
LOGICAL up,down 
DATA a/2358.2E-8/,i1/91585/ ,c/(705.60,819.60)/ 
DATA up/.TRUE./,down/.FALSE./ 
OPEN(UNIT=9,FILE=’listout’ ,STATUS=’NEW’ ) 
WRITE(9,*)a,i 


WRITE ( /*)c,up,down 
REWIND(9) 
READ(9,*#)a,i 
READ(9,*)c,up,down 
WRITE (*, t)a,i 
WRITE(*,*)c,up,down 
STOP: 2 

END 


The program above has the following output: 


2; 550c VUE 005 91585 
(705.6000000,819.6000000) T F 


4.9.2 List-Directed Output 


The form of the values produced by list-directed output is the same as the 
form of values required for input, except as noted in this section. The list- 
directed line size is 79 columns. 


New records are created as necessary, but neither the end of a record nor 
blanks can occur within a constant (except in character constants). In order 
to provide carriage control when the record is printed, each output record 
begins with a blank character. Therefore, you don’t have to write a blank as 
a carriage-control character. 
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In addition, the following rules apply for the specified types of data: 
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Type of Data 


Logical constants 


Integer constants 


Single- and double- 
precision real 
constants 


Character constants 


Characteristics 


Output as T for the value true and F for the 
value false. 


Output having the effect of an I11 edit 
descriptor. 


Output having the effect of either an F or E 
edit descriptor, depending on the value of the 
constant. 


If: Then: 


The constant is out- 
put using a OPF15.6 
edit descriptor for 
single-precision, or 
a OPF24.15 edit 
descriptor for 
double-precision. 


1 <= constant and 
constant < 10! 


The constant is 
output using a 
1PE15.6E2 edit 
descriptor for single 
precision, or a 
1PE24.15E3 edit 
descriptor for double 
precision. 


constant < 1 or 
constant <= 10° 


Not delimited by apostrophes (single quota- 
tion marks). They are neither preceded nor 
followed by a value separator. 


Each internal apostrophe (single quotation 
mark) is represented by one externally. A 
blank character is inserted at the start of any 
record that begins with the continuation of a 
character constant from the preceding record. 
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Slashes, as value Not produced by list-directed formatting. 
separators 
Null values Not produced by list-directed formatting. 


m= Example 


C This example uses list-directed output 
INTEGER i,j 
REAL a,b 
LOGICAL on,off 
CHARACTER*20 c 
DATA 1/123456/,j)/500/ ,a/28.22/ ,b/.0015555/ 
DATA on/.TRUE./,of f/.FALSE./ 
DATA c/‘Here’’s a string’/ 
WRITE (*,*)i,] 
WRITE(*,*)a,b,on,off 
WRITE(*,*#)c 
STGP: * # 
END 


The preceding program prints the following on the screen: 


123456 500 
28.2200000 1.555500E-003 T F 


Here’s a string 
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5.1 Introduction 


The first part of this chapter describes the kinds of statements available in 
Microsoft FORTRAN. The second part of the chapter contains a directory of 
FORTRAN statements, listed alphabetically. 


A FORTRAN statement consists of an initial line, optionally followed by an 
unlimited number of continuation lines. Statements are written in columns 
7 through 72. Statements perform actions such as computing, storing the 
results of computations, altering the flow of control, reading and writing 
files, and providing information for the compiler. 


5.2 Categories of Statements 


There are two basic types of statements in FORTRAN: executable and 
nonexecutable. An executable statement causes an action to be performed. 
Nonexecutable statements do not cause actions to be performed. Instead, 
they describe, classify, or specify the format of program elements, such as 
entry points, data, or program units. Table 5.1 summarizes the FORTRAN 
statements. 


157 


Microsoft FORTRAN Compiler Language Reference 


Table 5.1 


Categories of FORTRAN Statements 


Category 


Assignment 
statements 


BLOCK DATA, 
ENTRY, 
FUNCTION, 
INTERFACE, 
PROGRAM, and 
SUBROUTINE 
statements 


Control statements 


DATA 
FORMAT 
I/O statements 


Specification 
statements 


Statement-function 
statements 
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Type 


Executable 


Nonexecutable 


Executable 


Nonexecutable 


Nonexecutable © 


Executable 


Nonexecutable 


Nonexecutable 


Description 


Assign a value to a variable or an array 
element. See Section 5.3.1, “The ASSIGN 
Statement” and Section 5.3.2, “The 
Assignment Statement” for more 
information. 

Define the start of a program unit and 
specify its formal arguments. 


Control the order of execution of 
statements. See Table 5.3. 


Assigns initial values to variables. 
Provides data-editing information. 


Transfer data and manipulate files and 
records. See Table 5.4 and Chapter 4, 
“The Input/Output (I/O) System.” 


Define the attributes of variables, arrays, 
and subprograms. See Table 5.2. 


Define simple, locally used functions. 


Table 5.2 


Statements 


Table 5.2 summarizes the specification statements. 


Specification Statements 


Statement 
COMMON 
DIMENSION 
EQUIVALENCE 
EXTERNAL 
IMPLICIT 
INTRINSIC 
PARAMETER 


SAVE 


Type: 

CHARACTER] *n] 
COMPLEX [* bytes] 
DOUBLE PRECISION 
INTEGER| * bytes] 
LOGICAL[* bytes] 
REAL * bytes] 


Purpose 


Provides for sharing memory between 
two or more program units 


Identifies an array and defines the 
number of its elements 


Specifies that two or more variables or 
arrays share the same memory location 


Allows a user-defined subroutine or 
function to be passed as an argument 


Defines the default type for user- 
defined names 


Allows a predefined function to be 
passed as an argument 


Eiquates a constant expression with a 
name 


Causes variables to retain their values 
between invocations of the procedure in 
which they are defined 


Specifies the type of user-defined names 
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Table 5.3 summarizes the control statements. 


Table 5.3 | 


Control Statements 


Statement 


CALL 
CONTINUE 


DO 


ELSE 
ELSEIF 
END 
ENDIF 


GOTO 


IF 


PAUSE 


RETURN 


STOP 
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Purpose 


Calls and executes a subroutine 


Does not have any effect; often used as 
target of GOTO, or as the terminal 
statement in a DO loop 


Causes repetitive evaluation of the 
statements in the DO loop, through and 
including the ending statement 


Introduces an ELSE block 
Introduces an ELSEIF block 
Ends execution of a program unit 


Marks the end of a series of statements 
following a block IF statement 


Transfers control elsewhere in the 
program, according to the kind of GOTO 
statement used (assigned, computed, or 
unconditional) 


Causes conditional execution of some 
other statement(s), depending on the 
evaluation of an expression and the kind 
of IF statement used (arithmetic, logical, 
or block) 


Suspends program execution and, 
optionally, executes operating-system 
commands 


Returns control to the program unit that 
called a subroutine or function 


Terminates a program 


Statements 


Table 5.4 summarizes the I/O statements. 


Table 5.4 
I/O Statements 


Statement Purpose 


BACKSPACE Positions the file connected to the 
specified unit to the beginning of the 
previous record 


CLOSE Disconnects the specified unit and 
prevents subsequent I/O from being 
directed to that unit 


ENDFILE Writes an end-of-file record on the file 
connected to the specified unit 

INQUIRE Returns values indicating the 
properties of a file or unit 

LOCKING Locks direct-access files and records 

OPEN Associates a unit number with an 
external device or with a file 

PRINT Specifies output to the screen 

READ Transfers data from a file to the items 
in an I/O list 

REWIND Repositions a specified unit to the first 
record in the associated file 

WRITE Transfers data from the items in an I/O 


list to a file 
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5.3 Statement Directory 


The rest of this chapter is an alphabetical listing of all Microsoft FORTRAN 
statements. Each statement is described using the following format: 


Heading 


@ Action 


# Syntax 


= Remarks 


a Example 
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Information 


Summary of what the statement does. 


Correct syntax for the statement, and descrip- 
tion of the statement’s parameters. 


Use of the statement. 


Sample programs or program fragments that 
illustrate the use of the statement. This sec- 
tion does not appear with every reference 
entry. 


Statements 


Note 


The syntax of statements that do not fit on one line is shown on more 
than one line, as in the following example: 


CLOSE ((UNIT = Junitspec 
[ERR =errlabel] 
[,IOSTAT = iocheck] 

[ STATUS =status]) 


When you use these statements, you must still follow the formatting 
rules described in Section 3.2, “Lines,” or, if the $FREEFORM 
metacommand is specified, the rules given in Section 3.4, “Free-Form 
Source Code.” The following program fragment, for example, is illegal: 


CLOSE (UNIT=2, 
ERR=100, 
TOSTAT=errvar ) 


Kither of the following two statements, however, is correct: 


CLOSE (UNIT=2,ERR=100,10STAT=errvar ) 


CLOSE (UNIT=2, 
+ERR=100, 
+10STAT=errvar ) 
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ASSIGN (Label Assignment) 
5.3.1 The ASSIGN Statement (Label Assignment) 


@ Action 


Assigns the value of a format or statement label to an integer variable 


m Syntax 
ASSIGN label TO variable 
Parameter Description 


label Format label or statement label. The label 
referred to must appear in the same program 
unit as the ASSIGN statement. 


variable An integer variable. 


# Remarks 


Use the ASSIGN statement to assign the value of a label to a variable. 
You can use variables with label values in the following situations: 


Situation Use 


An assigned GOTO The assigned GOTO statement requires a 
statement variable that must have the value of the label 
of an executable statement. 


A format specifier Input/output statements allow you to use a 
variable to specify the label of a FORMAT 
statement. 


The value of a label is not the same as the label number; the label is 
instead identified by a number assigned by the compiler. For example, 
the value of IVBL in the following is not 400: 


ASSIGN 400 TQ IVBL 
Therefore, variables used in ASSIGN statements are not defined as 
integers. If you want to use a variable defined by an ASSIGN statement in 


an arithmetic expression, you must first define the variable by a computa- 
tional assignment statement (see Section 5.3.2) or by a READ statement. 
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If you use INTEGER *1 variables for variable, note that INTEGER*1 
variables can only be used for the first 128 ASSIGN statements in a sub- 
program. 


a Example 


OO © © OO 


Assign statement label 100 to the integer variable 
ivar 
ASSIGN 100 TO ivar 
Use ivar as a FORMAT statement label 
WRITE(*,ivar) 
Assign statement label 200 to ivar 
ASSIGN 200 TO ivar 
Use ivar as the target label of an assigned GQTQ 
statement 
GOTO ivar | 
WRITE (*,*)% This is never written’ 
200 CONTINUE 
WRITE (*,*)’% This i8 written’ 
100 FORMAT (’% This is format 1007) 
END 
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5.3.2 The Assignment Statement (Computational) 

= Action 

Evaluates an expression and assigns the resulting value to the specified 


variable or array element 


= Syntax 


variable = expression 


Parameter Description 
variable A variable or array-element reference 
expression Any expression 


@ Remarks 


The type of the variable or array element and the type of expression must 
be compatible, as follows: 


e If expression is numeric, then variable must be numeric, and the 
statement is called an arithmetic assignment statement. If the data 
types of expression and variable are not identical, expression is con- 
verted to the data type of variable. 


Section 2.7.1.2, “Type Conversion of Arithmetic Operands,” explains 
how integer, real, and complex numbers are converted. 

e If expression is logical, then variable must be logical, and the state- 
ment is called a logical assignment statement. 


Logical expressions of any size can be assigned to logical variables of 
any size without affecting the value of expression. 


Note that integer and real expressions may not be assigned to logi- 
cal variables, nor may logical expressions be assigned to integer or 
real variables. 
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If expression has the type CHARACTER, the statement is called 

a character assignment statement. If the $NOTSTRICT metacom- 
mand (the default) is in effect, then a character expression can be 
assigned to a noncharacter variable, and a noncharacter variable or 


array element (but not an expression) can be assigned to a character 


variable. If $STRICT is in effect, both variable and expression must 
have type CHARACTER. 


For character assignment statements, if the length of expression 
does not match the size of variable, expression is adjusted as follows: 


e If variable is longer than expression, then expression is padded 
with blanks on the right. 


e If variable is shorter than expression, then characters on the 
right of expression are ignored. 


= Examples 


The following program demonstrates assignment statements: 


100 


REAL A, B, Cc 
LOGICAL ~ ABIGGER 
CHARACTER*#S ASSERTION 
C= 204 
A = SQRT(C) 
B= C¥*2 
ASSERTION = ’A > B’ 
ABIGGER = (A .GT. B) 
WRITE (*,100) A, B 
FORMAT(’ A =’, F7.4, % B =’, F7.4) 
IF (ABIGGER) THEN 
WRITE(*,*) ASSERTION, ’ is true.’ 
ELSE 
WRITE(*,*) ASSERTION, ’ is false.’ 
ENDIF 
END 
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The program above has the following output: 


A = .1000 B= .0001 
A > B is true. 

The following program fragment demonstrates legal and illegal assignment 
statements: 


INT i 
REAL x 
CHAR cl 
x=2.0 
C The following 2 statements are legal: 
c1=x 
i=c1 
C The following @ statements are illegal: 
c1=x+1.0 
j=ci//‘test’ 
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5.3.3 The BACKSPACE Statement 


= Action 


Positions the file connected to the specified unit at the beginning of the 


preceding record 


a Syntax 


BACKSPACE {unitspec | 


(TUNIT = Junitspec 

L,ERR =errlabel] 

LIOSTAT = iocheck]})} 
Parameter > 


unitspec 


errlabel 


tocheck 


Description 


An external unit specifier (see Section 4.3.2 
for information). If unitspec has not been 
opened, a run-time error is produced. 


The label of an executable statement in the 
same program unit as this BACKSPACE 
statement. If errlabel is specified, I/O errors 
transfer control to the statement at errlabel. 
If errlabel is omitted, 1/O errors cause run- 
time errors. The effects of I/O errors are deter- 
mined by the presence of iocheck. For more 
information on error handling, see Section 
4.3.10, “Error and End-of-File Handling.” 


An integer variable or integer array element 
that becomes defined as 0 if no error is 
encountered, or as a positive integer if an 
error is encountered. For more information 
on error handling, see Section 4.3.10, “Error 
and End-of-File Handling.” 
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m Remarks 


The BACKSPACE statement backs up exactly one record, except in the 
special cases listed below: 


If: Then: 

There is no preceding The file position is not changed. 
record 

The preceding record is The file is positioned before the end- 
the end-of-file record of-file record. 


The file position is in the The file is positioned to the start of 
middle of the record that record. 


If a parameter of the BACKSPACE statement is an expression that calls a 
function, that function must not cause an I/O statement or the EOF intrin- 
sic function to be executed, because the results are unpredictable. 


= Examples 


C EXAMPLES OF BACKSPACE STATEMENTS 
BACKSPACE 5 
BACKSPACE LUNIT 
BACKSPACE (5) 
BACKSPACE (UNIT = LUNIT, ERR = 30, IQSTAT = IQS) 
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5.3.4 The BLOCK DATA Statement 


= Action 

Identifies a block-data subprogram, where variables and array elements in 
named common blocks can be initialized 

mw Syntax 


BLOCK DATA [blockdataname] 


Parameter Description 

blockdataname An optional global symbolic name for the sub- 
program identified by the BLOCK DATA 
statement. 


This name must not be the same as any of the 
names for local variables or array elements 
defined in the subprogram labeled by 
blockdataname, and must not be the same as 
any of the names given to the main program, 
external procedures, common blocks, or other 
block-data subprograms. 


m Remarks 


The BLOCK DATA statement must be the first statement in a block-data 
subprogram. 


Only one unnamed block-data subprogram may appear in the executable 
program. Otherwise, the default name will be defined twice, generating 
an error. 


The following restrictions apply to the use of block-data subprograms: 
@ The only statements that may be used in a block-data subprogram 
are BLOCK DATA, COMMON, DIMENSION, PARAMETER, 


IMPLICIT, EQUIVALENCE, SAVE, DATA, END, and type 
statements. No executable statements are permitted. 
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@ Named common blocks specified in block-data subprograms must 
have unique names. Only an entity defined in a named common 
block may be initially defined in a block-data subprogram. 


e All the constituents of a named common block specified in a block- rat 
data subprogram must be specified in that block-data subprogram, 
even if not all the constituents are initialized, as shown in the fol- 
lowing examples. This is because the length of the named common 
block cannot change between subprograms. 


= Examples 


C The following block-data subprogram initializes | 
C one constituent of the named common block /LAKES/: 
C 


BLOCK DATA total 

COMMON /LAKES/ Wawenpaupak, Hopatcong, Great(5) 
DATA Hopatcong //78/ 

END 


Now, assuming the use of the same common block, 
/LAKES/, the following block-data subprogram is 

NOT allowed. This is because not all the constituents 
of /LAKES/ are specified. 


OMOIIMDO 


BLOCK DATA total 

COMMON /LAKES/ Hopatcong 
DATA Hopatcong /78/ 

END 
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5.3.5 The CALL Statement 


= Action 


Calls and executes a subroutine from another program unit 


mg Syntax 

CALL subr[ ([actuals])] 
Parameter 
subr 


actuals 


= Remarks 


Description 
The name of the subroutine to be called. 


One or more optional actual arguments. 


If there is more than one actual argument, 
they must be separated by commas. Each 
actual argument can be an alternate-return 
specifier (*/abel); a constant, variable, or 
expression; an array or array element; the 
name of a subroutine or external function; 
the name of an intrinsic function that can 
be passed as an argument; or a Hollerith 
constant. 


Execution of a CALL statement proceeds as follows: 


Arguments that are expressions are evaluated. 


2. Actual arguments are associated with their corresponding formal 


arguments. 


The body of the specified subroutine is executed. 


Control is returned to the calling routine, either to a statement 
specified by an alternate return or to the statement following the 


CALL statement. 


A subroutine can be called from any program unit. 
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Microsoft FORTRAN does not support recursive subroutine calls. Moreover, 
it cannot detect them. That is, a subroutine cannot call itself directly, nor 
can it call another subroutine that results in the first subroutine’s being 
called again before the first subroutine returns control to its caller. Recur- 
sive subroutine calls do not produce an error message. Programs that con- 
tain recursive calls have undefined results. 


There must be the same number of actual arguments in the CALL state- 
ment as there are formal arguments in the corresponding SUBROUTINE 
statement, unless the C and VARYING attributes (described in Sections 
2.6.2 and 2.6.10) have been used to declare the subroutine. Formal argu- 
ments and their corresponding actual arguments must have the same data 
type except in the case of Hollerith constants. When the actual argument is 
a Hollerith constant, the formal argument need not be the same type, as 
long as it is of type INTEGER, REAL, or LOGICAL. If a SUBROUTINE 
statement lacks formal arguments, a CALL statement referencing that sub- 
routine must not have any actual arguments. However, a pair of empty 
parentheses can follow suodr. 


For all arguments passed by reference (see Section 2.6.9, “VALUE,” for 
information on passing arguments by value), the compiler assumes that the 
type of the formal argument is the same as the type of the corresponding 
actual argument. If the type of the formal argument is known, it is used 
only to check that the arguments have the same data type. 


The compiler checks that the actual arguments used in different calls to the 
same subroutine correspond in number and type. If the SUBROUTINE 
statement, or an INTERFACE statement that defines the subroutine, is in 
the same source file as any calls to it, the compiler ensures that all actual 
arguments agree with the subroutine’s formal arguments. 


If arguments do not agree, and they have not been checked as described 
above, your program will have unpredictable results. 
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Note 


When passing integer and logical arguments, be especially careful about 
argument agreement. The setting of the $STORAGE metacommand 
affects how integer and logical arguments are passed. When the default 
(SSTORAGE:4) is in effect, all actual arguments that are integer or 
logical constants or expressions are assigned to INTEGER *4 or 
LOGICAL +4 temporary variables. When $STORAGE:2 is in effect, 
all actual arguments that are integer or logical constants or expres- 
sions are assigned to temporary variables of type INTEGER #2 or 
LOGICAL#2. To pass 2-byte integer arguments when $STORAGE:4 
is in effect, or 4-byte integer arguments when §STORAGE:2 is in 
effect, use the INT2 and INT4 intrinsic functions, as described in 
Section 3.11.3.1. 


The alternate-return feature lets you specify the statement to which a sub- 
routine should return control. To use the alternate-return feature, do the 
following: 


1. Choose the statements in the calling routine to which you wish to 
return control. Enter the labels of these statements, preceded by 
asterisks, in the actual argument list of the CALL statement, as in 
this statement: 


CALL INVERT (*100, *200, row, *500, column) 


2. In the corresponding SUBROUTINE statement, enter asterisks 
for the formal arguments corresponding to the */abel actual argu- 
ments in the CALL statement, as in the following SUBROUTINE 
statement: 


SUBROUTINE INVERT (*, *, first, *, second) 


3. In the subroutine, have at least one RETURN statement for each 
alternate return. As arguments for these RETURN statements, 
specify a 1 for the RETURN statement that should return control 
to the first statement label in the CALL statement, a 2 for the 
RETURN statement that should return control to the second state- 
ment label in the CALL statement, and so on. 
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For example, if the statement RETURN 1 is reached in the program 
containing the two statements in steps 1 and 2 above, control 
returns to the statement at label 100 in the calling routine. If 
RETURN 2 is reached, control returns to the statement at label 200; 
and if RETURN 3 is reached, control returns to the statement at 
label 500. If a RETURN statement without any number is reached 
(RETURN), or a RETURN statement that has a number for which 
there is no corresponding return label is reached (such as RETURN 
4 in this example), control returns to the statement following the 
CALL statement in the calling routine. 


Examples 


C EXAMPLE DF CALL STATEMENT 


200 


C This example illustrates the alternate return feature: 
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1 


10 
20 


30 
40 


IF (IERR .NE. 0) CALL ERROR(IERR) 
END 


SUBROUTINE ERROR( TERRNO) 

WRITE (*, 200) TERRNO 

FORMAT(1X, “ERROR’, 15, “DETECTED” ) 
END 


CALL BOOMERANG( count ,*10,J,*20,%*30) 
WRITE (*,*) ‘’normal return’ 

GOTO 40 

WRITE (*,*) “’returned to 107 

GOTO 40 

WRITE (*,%*) ‘returned to 207% 

GOTO 40 

WRITE (*,*) ‘returned to 30% 
CONTINUE 


SUBROUTINE BOOMERANG (1,*,J,*,*) 
IF (1.EQ@.10) RETURN 1 

IF (1.EQ@.20) RETURN 2 

IF (1.EQ.30) RETURN 3 

RETURN 


CHARACTER 


5.3.6 The CHARACTER Statement 


# Action 


Specifies that user-defined names are of the character data type 


m Syntax 


CHARACTER[«* bytes] vname I latirs]] (dim) ]L * length] / values / | 
[,vnamellatirs (dim) IL * length Fl / values / I... 


The order of the dim and length parameters can be reversed. 


Parameter 


bytes 


uname 


atirs 


Description 


An optional unsigned integer constant in the 
range 1 through 32,767, an integer constant 
expression (evaluating to an integer between 

1 and 32,767) in parentheses, or an asterisk in 
parentheses (*). The bytes parameter specifies 
the length, in bytes, of the items specified in 
the CHARACTER statement. This value can 
be overridden by the length parameter. 


The symbolic name of a constant, variable, 
array, external function, statement function, 
or intrinsic function; or a function subprogram 
or an array declarator. See Section 5.3.12, 
“The DIMENSION Statement,” for informa- 
tion on array declarators. 


The parameter uname cannot be the name of 
a subroutine or main program. 


An optional list of attributes, separated by 
commas. The atirs describe uname. The fol- 
lowing attributes can be used with uname: 
ALIAS, C, EXTERN, FAR, HUGE, NEAR, 
PASCAL, REFERENCE, VALUE. See 
Section 2.6, “Attributes,” for information on 
attributes. 


1% 


CHARACTER 


dim 


length 


values 


= Remarks 


An optional dimension declarator. Specifying 
dim declares uname as an array. See Section 
5.3.12, “The DIMENSION Statement,” for a 


description of dimension declarators. 


An unsigned integer constant in the range 1 
through 32,767, an integer constant expression 
(evaluating to an integer between 1 and 
32,767) in parentheses, or an asterisk in 
parentheses (*). The length parameter speci- 
fies the length, in bytes, of the uname immedi- 
ately preceding it. This value, if specified, 
overrides the length indicated by bytes. 


A list of constants and repeated constants, 
separated by commas. A repeated constant is 
written in the form n*constant, where n is 

a positive-nonzero-integer constant, and is 
equivalent to constant repeated n times. The 
/values/ option, if specified, initializes 
uname. The following statement, for example, 
declares that word is of type character, and 
sets word equal to *start’: 


CHARACTER#5 word /‘start’/ 


A CHARACTER statement confirms or overrides the implicit type of 
uname. The name uname is defined for the entire program unit and cannot 
be defined by any other type statement in that program unit. 


An asterisk ((*)) as a length specifier indicates that the length is specified 
elsewhere. An asterisk length specifier is allowed in the following cases: 


e Character constants defined by PARAMETER statements 


@e Formal character arguments 


e Character functions that are referenced in one function and defined 
with a specific length in the same program unit 


If neither length nor bytes is specified, the length defaults to 1. 


CHARACTER statements must precede all executable statements. 
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= Examples 


C EXAMPLES OF CHARACTER STATEMENTS 
CHARACTER WT*10, CITY*80, CH 
CHARACTER name(10) *20,eman*20(10) 
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5.3.7. The CLOSE Statement 


@ Action 


Disconnects the unit specified and prevents subsequent I/O from being 
directed to that unit (unless the same unit number is reopened, possibly 
associated with a different file or device). The file is discarded if the 
CLOSE statement includes STATUS =’DELETE’. 


a Syntax 


CLOSE ((UNIT = Junitspec 
[ERR =errlabel] 

[ LOSTAT = iocheck] 
[STATUS = status]) 
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Parameter 


unitspec 


errlabel 


tocheck 


Description 


An external unit specifier. 


If the optional string UNIT= is not specified, 
unitspec must be the first parameter. See Sec- 
tion 4.3.2 for information about unit specifiers. 


The unit specified by unitspec does not have 
to exist. 


The label of an executable statement in the 
same program unit as this statement. If 
errlabel is specified, I/O errors transfer control 
to the statement at errlabel. If errlabel is omit- 
ted, I/O errors cause run-time errors. The 
effects of I/O errors are determined by the 
presence of iocheck. For more information on 
error handling, see Section 4.3.10, “Error and 
End-of-File Handling.” 


An integer variable or integer array element 
that becomes defined as zero if no error is 
encountered, or as a positive integer if an 
error is encountered. For more information 
on error handling, see Section 4.3.10, “Error 
and End-of-File Handling.” 


CLOSE 


status A character expression that evaluates to 
either "KEEP’ or DELETE’ when trailing 
blanks are removed. 


For files opened as scratch files, the default for 
status is "DELETE’. Scratch files are always 
deleted upon normal program termination; 
specifying STATUS =’KEEP’ for scratch or 
temporary files produces a run-time error. The 
default for status for all other files is "KEEP’. 


= Remarks 


Opened files do not have to be explicitly closed. Normal termination of a 
Microsoft FORTRAN program will close each file with its default status. 
Closing of unit zero automatically reconnects unit zero to the keyboard and 
screen. Closing of units five and six automatically reconnects those units to 
the keyboard or screen, respectively. Closing of the asterisk (*) unit results 
in a compile-time error. 


If a parameter of the CLOSE statement is an expression that calls a func- 
tion, that function must not cause an I/O statement or the EOF intrinsic 
function to be executed, because the results are unpredictable. 


m= Example 


C CLOSE AND DISCARD FILE 
CLOSE(7,STATUS=’DELETE’) 
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5.3.8 The COMMON Statement 


w Action 


Provides for sharing memory between two or more program units. Such pro- 
gram units can manipulate the same datum without passing it as an argu- 
ment. 


m Syntax 


COMMON [/[cname][[atirs]]}/ Iniist{L,] / [cname] [[attrs]]/niisz]... 
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Parameter 


cnhame 


attrs 


nlist 


Description 


An optional common-block name. 


The default for cname is the blank common 
block. 


A list of attributes, separated by commas. The 
attributes describe cname. Only ALIAS, C, 
FAR, NEAR, and PASCAL can be used with 
common-block names. See Section 2.6, “Attri- 
butes,” for more information. 


A mandatory list of variable names, array 

names, and array declarators, separated by 
commas. See Section 5.3.12, “The DIMEN- 

SION Statement,” for information on array 
declarators. 


Formal-argument names and function names 
cannot appear in a COMMON statement. In 
each COMMON statement, all variables and 
arrays appearing in each nist following a 
common-block name are declared to be in that 
common block. Omitting the first cname speci- 
fies that all elements in the first nlzst are in 
the blank common block. 


COMMON 


= Remarks 


Any common-block name can appear more than once in COMMON state- 
ments in the same program unit. All elements in nlist for the same common 
block are allocated in that common memory area, in the order they appear 
in the COMMON statement(s). 


An item that appears in nlist cannot be initialized in a type statement. The 
following example causes an error: | 


INTEGER i/i/ 
COMMON i 


If the $STRICT metacommand is specified, all items in a common block 
must be either character or noncharacter items. When $NOTSTRICT, the 
default, is in effect, Microsoft FORTRAN allows the mixture of character 
and noncharacter variables and arrays in common blocks. Microsoft FOR- 
TRAN restricts noncharacter variables to even-byte addresses, so the associ- 
ation of character and noncharacter variables within a common block can 
be affected. Because of the order requirement, the compiler cannot adjust 
the position of variables within a common block to comply with the even- 
address restriction. The compiler generates an error message for those asso- 
ciations which result in a conflict. Placing all character variables at the end 
of a common block can make it easier to avoid these conflicts. 


The length of a common block equals the number of bytes of memory 
required to hold all elements in that common block. If several distinct pro- 
gram units refer to the same named common block, the common block must 
be the same length in each program unit. Blank common blocks, however, 
can have different lengths in different program units. The length of the 
blank common block is the maximum length. 
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= Example 


C EXAMPLE OF BLANK AND NAMED COMMON BLOCKS 
PROGRAM MYPROG 
COMMON I, J, X, K 
COMMON /MYCOM/ A{ 


(10) 
3) 
END 

SUBROUTINE MYSUB 


COMMON IP, JX, Z, IDUM(10) 
COMMON /MYCOM/ A(3) 


END 
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5.3.9 The COMPLEX Statement 


@ Action 


Specifies that user-defined names are of type complex 


m Syntax 


COMPLEX[ # bytes] vname[[attrs] If *length][(dim) IL / values /] 
[,vname[[latirs]] */ength][(dim)]{ / values / J]... | 


The order of the length and dim parameters can be reversed. 


Parameter 


bytes 


vrame 


attrs 


length 


dim 


Description 


Must be 8 or 16. The bytes parameter specifies 
the length, in bytes, of the items specified by 
the COMPLEX statement. This value can be 
overridden by the length parameter. 


The mandatory symbolic name of a constant, 
variable, array, external function, statement 
function, or intrinsic function; or a function 
subprogram or an array declarator. 


Cannot be the name of a subroutine or a main 
program. 


An optional list of attributes separated by 
commas. The atirs describe uname. The fol- 
lowing attributes can be used with uname: 
ALIAS, C, EXTERN, FAR, HUGE, NEAR, 
PASCAL, REFERENCE, VALUE. 


Assigns length to uname. The value of the 
length parameter must be 8 or 16. If length 
is specified, it overrides the length attribute 
specified by bytes. 


A dimension declarator. You can only specify 
dim if uname is an array. If dim is specified, 
the COMPLEX statement declares the array 
vname. 
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values A list of constants and repeated constants, 
separated by commas. A repeated constant is 
written in the form n*constant, where n is 
a positive-nonzero-integer constant, and is 
equivalent to the constant constant repeated n 
times. The /values/ option, if specified, ini- 
tializes uname. The following statement, for 
example, declares that num is of type complex, 
and sets num equal to (32.0,0.0): 


COMPLEX num /(32.0,0.0)/ 


ws Remarks 


A COMPLEX statement confirms or overrides the implicit type of uname. 
The name uname is defined for the entire program unit and cannot be 
defined by any other type statement in that program unit. 


COMPLEX statements must precede all executable statements. 


m Examples 


C EXAMPLES OF COMPLEX STATEMENTS 
COMPLEX NAME, CH ZDIF*8, XDIF*16 
COMPLEX*8 22 
COMPLEX*16 ax,by 
COMPLEX x#16,y(10)#8,2*16(10) 
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5.3.10 The CONTINUE Statement 


m Action 


Does not have any effect 


@ Syntax 


CONTINUE 


= Remarks 


The CONTINUE statement is used primarily as a convenient point for a 
statement label, particularly as the terminal statement in a DO loop. 


mw Example 


C EXAMPLE OF CONTINUE STATEMENT 
DIMENSION IARRAY( 10) 
DO 10, I = 1, 10 
——sTARRAY(I) = 0 
10 CONTINUE 
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5.3.11 The DATA Statement 


® Action 


Assigns initial values to variables 


gm Syntax 


DATA nilist /clist/ [IL] nist /clist/]... 
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Parameter 


nlist 


clist 


Description 


A list of variables, array elements, array 
names, substring names, and implied-DO lists, 
separated by commas. Implied-DO lists are 
discussed in the “Remarks” section below. 


Each subscript expression in nlist must be 

an integer constant expression, except for 
implied-DO variables. Each substring expres- 
sion in nlist must be an integer constant 
expression. 


A list of constants and/or repeated constants 
and/or Hollerith constants, separated by com- 
mas. A repeated constant is written in the 
form n*c, where the repeat factor n is a 
positive-nonzero-integer constant, and c is the 
constant to be repeated. The repeated constant 
5*10, for example, is equivalent to the clist 
10,10,10,10,10. 


A repeat factor followed by a constant is 
equivalent to a list of all constants having the 
specified value and repeated as often as speci- 
fied by the repeat constant. 


A Hollerith constant is written in the form 
nHdata, where n is a positive-nonzero-integer 
constant, and data is a string of n characters. 


DATA 


There must be the same number of values in 
each clist as there are variables or array ele- 
ments in the corresponding nlist. The appear- 
ance of an array in an nlist 1s equivalent to a 
list of all elements in that array in column- 
major order. Array elements can be indexed 
only by constant subscripts. 


= Remarks 
Type conversion takes place for each noncharacter element in clist. 


If the $STRICT metacommand is not specified, a character element in a 
clist can correspond to a variable of any type. If the length of the character 
element is less than the length of that variable or array element, it is 
extended to the length of the variable by adding blank characters at the 
right. If the character element is longer than the variable or array element, 
it is truncated. A single character constant defines one variable or one 
array element. A repeat count can be used. | 


Only local variables and array elements can appear in a DATA statement 
(unless the DATA statement is in a block-data subprogram). Formal argu- 
ments, variables in blank common blocks, and function names cannot be 
assigned initial values with a DATA statement. Elements in named com- 
mon blocks can be assigned initial values by using a DATA statement in 
a block-data subprogram. 


The form of an implied-DO list is as follows: 


(dlist,dovar = start,stop [,inc]) 


Parameter Description 

dlist A list of array-element names and implied- 
DO lists. 

dovar The name of an integer variable, called the 


implied-DO variabie. 


start, stop, and inc Integer constant expressions. Each expression 
can contain implied-DO variables (dovar) of 
other implied-DO lists that have this implied- 
DO list within their ranges. 
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DATA 


For example, the following are implied-DO lists: 


(count(i), i=5,15,2) 
((array(sub,low), low=1,12) ,sub=1,2) 
((result(first,second) ,first=1,max) ,second=1 ,upper }) 


An iteration count and the values of the implied-DO variable are estab- 
lished from start, stop, and inc exactly as for a DO loop except that the 
iteration count must be positive. See Section 5.3.13, “The DO Statement,” 
for more information. When an implied-DO list appears in a DATA state- 
ment, the list items in dlist are initialized once for each iteration of the 
implied-DO list. The range of an implied-DO list is dlist. If the program 
contains another variable with the same name as dovar, that variable is 
not affected by the use of dovar in a DATA statement. 


= Example 


INTEGER N, ORDER, ALPHA, li 
REAL COEF(4), EPS(2), pi(5) 
CHARACTER*12 help 

DATA N /0/, ORDER /3/ 
DATA ALPHA /‘A‘/ 

DATA COEF /1.0,2*3.0,1.0 
DOTA: (Ces Ly tai. 
DATA pi /5*3.14159/ 

DATA list /100*0/ 

DATA help(1:4), help(5:8), help (9:12) /3*’HELP‘/ 


~ Lt 
c+ 


fo 
=1,5 
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5.3.12 The DIMENSION Statement 


= Action 


Specifies a name that is an array and defines the number of its elements 


m Syntax 


DIMENSION array [[attrs]] (llower:]upper) [,array [lattrs]] (llower:Jupper)]... 


Parameter Description 
array The name of an array. 
attrs A list of attributes separated by commas. 


The attrs describe array. The following attri- 
butes can be used with array: ALIAS, C, 
EXTERN, FAR, HUGE, NEAR, PASCAL, 
REFERENCE, VALUE. 


lower The lower dimension bound, which can be 
positive, negative, or zero. The default for 
lower is one. 


upper The upper dimension bound, which can be 
positive, negative, zero, or an asterisk. It must 
be greater than or equal to lower. 


The specifier [/ower:]upper is also called a “dimension declarator.” The 
number of dimensions in the array equals the number of dimension declara- 
tors specified. There is no limit on the number of dimensions. The specifier 
array([lower:Jupper) is also called an “array declarator.” 


It can be useful to specify both the upper and lower dimension bounds. 
If, for example, one array contains data from experiments numbered 28 
through 112, you could dimension the array as follows: 


DIMENSION exprmt (28:112) 


Then, to refer to the data from experiment 72, you would reference 
exprmt( Ac): 


19] 


DIMENSION 


You can use any of the following as dimension bounds: 


Bound 


An arithmetic 
constant 


A nonarray-integer 
formal argument or 

a nonarray-integer 
variable in a common 
block in the same 
program unit as the 
DIMENSION 
statement 


An asterisk 


An arithmetic 
expression 
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Description 


If all of an array’s dimensions are specified by 
arithmetic constants, the array has a constant 
size. The arithmetic value is truncated to an 
integer. 


The dimension is defined as the initial value 
of the variable upon entry to the subprogram 
at execution time. If a dimension bound of 
array is an integer formal argument or an 
integer variable in a common block, the array 
is an “adjustable-size array.” The variable 
must be given a value before the subprogram 
containing the adjustable-size array is called. 


Only upper can be an asterisk, and an asterisk 
can only be used for upper in the last dimen- 
sion of array. If upper is an asterisk, then 
array is an “assumed-size array.” For an 
assumed-size array, the subprogram array 1s 
defined at execution time to be the same size 
as the array in the calling program. The fol- 
lowing DIMENSION statement defines an 
assumed-size array in a subprogram: 


DIMENSION data (19,*) 


At execution time, the array data is given 
the size of the corresponding array in the 
calling program. 


Expressions cannot contain references to func- 
tions or array elements. Expressions can con- 
tain variables only in adjustable-size arrays. 
The result of the expression is truncated to 
an integer. 


DIMENSION 


Remarks 


All adjustable- and assumed-size arrays, as well as the bounds for 
adjustable-size arrays, must also be formal arguments to the program 
unit in which they appear. 


Array elements are stored in column-major order: the leftmost subscript 
is incremented first when the array is mapped into contiguous memory 
addresses. 


For example, look at the following statements: 


INTEGER*2 A (2, 0:2) 
DATA A /1, 2, 3, 4, 5S, 6/ 


If A is placed at location 1000 in memory, these statements cause the 
following mapping: 


Array Element Address Value 
A (1,0) 1000 1 
A (2,0) 1002 2 
A (1,1) 1004 3 
A (2,1) 1006 4 
A (1,2) 1008 5 
A (2,2) 100A 6 


= Examples 
The following program dimensions two arrays: 


DIMENSIDN A (2,3), V (10) 
CALL SUBR (A,2,V) 


SUBROUTINE SUBR (MATRIX, ROWS, VECTOR) 
REAL MATRIX, VECTOR 

INTEGER ROWS 

DIMENSION MATRIX (ROWS,*), VECTOR (10), 
$ LOCAL (2,4,8) 

MATRIX (1,1) = VECTOR (S) 


END 


193 
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The following program uses assumed- and adjustable-size arrays: 


real magnitude, minimum 
integer vecs, space, vec 


C The array vecs holds 4 three-dimensional vectors. 
dimension vecs(3,4) 
data VeCSs ladle. "2oteUe os 4c%5 ee ly 


C Find minimum magnitude. 
minimum=1E10 
do 100 vec = 1,4 


C Call the function magnitude to calculate the magnitude of 
C vector vec. 


minimum = AMIN1 (minimum, magnitude(vecs, 3, vec)) 
100 continue 
write(*,110) minimum 


*,110 
110 format(’ Vector closest to origin has a magnitude of’, 
12.6) 


end 


Function returns the magnitude of the j-th column vec ina 
matrix. Note that, because of the assumed-size array, the 
subroutine does not need to know the. number of columns in 
the matrix. It only requires that the specified column 
vector be a valid column in the matrix. The number of rows 
must be passed so the function can do the sum. 


I9I9U900ONID 


real function MAGNITUDE(matrix, rows, j) 


real sum 
integer matrix, rows, i, j 
dimension matrix (rows,*) 


sum = 0.0 
do 100 i=1, rows 
sum = sum + matrix(i,j)**e 
100 continue 
MAGNITUDE = SQRT(sum) 
return 


end 
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DO 
5.3.13 The DO Statement 
# Action 
Repeatedly evaluates the statements following the DO statement through 


the statement at label 


= Syntax 


DO label [,] dovar= start,stop L,inc] 


Parameter Description 

label The mandatory statement label of an execut- 
able statement. 

dovar A mandatory integer, real, or double-precision 
variable, called the “DO variable.” 

start, stop Mandatory integer, real, or double-precision 
expressions. 

inc An optional integer, real, or double-precision 


expression. The parameter inc cannot be equal 
to zero; inc defaults to one. 


= Remarks 


The label must appear after the DO statement and be contained in the 
same program unit. The statement at label is called the terminal statement 
of the DO loop and must not be an unconditional GOTO, assigned GOTO, 
arithmetic IF, block IF, ELSEIF, ELSE, ENDIF, RETURN, STOP, END, 
or DO statement. If the terminal statement is a logical IF statement, 

it may contain any executable statement permitted within a logical IF 
statement. 


The range of a DO loop begins with the statement immediately following 
the DO statement and includes the terminal statement of the DO loop. 


Execution of a CALL statement that is in the range of a DO loop does not 


cause the DO loop to become inactive, unless an alternate-return specifier 
in a CALL statement returns control to a statement outside the DO loop. 
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DO 


The following restrictions affect the execution of a DO statement: 


e Ifa DO statement appears in the range of another DO loop, its 
range must be entirely contained within the range of the enclosing 
DO loop, although the loops may share a terminal statement. 


e Ifa DO statement appears within an IF, ELSEIF, or ELSE block, 
the range of the DO loop must be entirely contained in the block. 


e Ifa block IF statement appears within the range of a DO loop, its 
associated ENDIF statement must also appear within the range of 
that DO loop. 


e The DO variable dovar may not be modified in any way by the 
statements within the range of the DO loop associated with it. 


@® Jumping into the range of a DO loop from outside its range is not 
permitted. However, a special feature, added for compatibility with 
earlier versions of FORTRAN, does permit extended-range DO 
loops. See Section 6.2.3, “The $DO66 Metacommand,” for more 
information. 


Note that the number of iterations in a DO loop is limited to the precision 
of the arithmetic used to evaluate it. For example, DO loops that use 
INTEGER «2 variables as the DO variable and bounds cannot be evaluated 
more than 32,767 times. If the $DEBUG metacommand is set, an error is 
generated if a DO variable overflows. If $DEBUG is not set, the results are 
unpredictable. In the following program fragment, for example, the number 
of iterations is 64,001, and the DO variable i can only be evaluated 32,767 
times: 


$DEBUG 

C This causes an error: 
INTEGER*2 i 
DQ 10 i = -32000,32000,1 


When a DO statement is executed, the following steps occur: 
1. The expressions start, stop, and inc are evaluated. If necessary, type 
conversion is performed. The DO variable dovar is set to the value 


of start. 


2. The iteration count for the loop is tested. 
The iteration count for the loop is the following: 
MAX(INT((stop — start + inc) / inc),0) 
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DO 


If either of the following is true, the iteration count can be zero: 
@ start > stop and inc > 0 
@ start < stop and inc < 0 

3. Ifthe iteration count is greater than zero, the statements in the 
range of the DO loop are executed. 
Note that if the $DO66 metacommand is in effect, the statements in 
the range of the DO loop are executed at least once. 


4. After the execution of the terminal statement of the DO loop, the 
value of the DO variable dovar is increased by the value of inc that 
was computed when the DO statement was executed. 

5. The iteration count is decreased by one. 

6. The iteration count is tested. If the iteration count is greater than 0, 
the statements in the range of the DO loop are executed again. 

= Examples 


The following two program fragments are examples of DO statements: 


C INITIALIZE A 20-ELEMENT REAL ARRAY 
DIMENSION’ ARRAY (20) 
De 41. P= 4. 20 


1 ARRAY(I) = 0.0 
C PERFORM & FUNCT-ION 11 TIMES 
DO 2, I = -30, -60, -3 
j= Te 
Js -9- J 
ARRAY(J) = MYFUNC(T) 
2 CONTINUE 


The following shows the final value of a DO variable: 


C DISPLAY THe NUMBERS 1 TO 11 ON THE SCREEN 
DO 200 1=1,10 
200 WRITE(*,’(15)7) 


I 
WRITE(*,°(15)‘)I1 
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DOUBLE PRECISION 


5.3.14 The DOUBLE PRECISION Statement 


= Action 


Specifies the DOUBLE PRECISION type for user-defined names 


gw Syntax 


DOUBLE PRECISION vname[fatirs}]l (dim) I] / values /] 
[ vrameffattrs]]1 (dim) I / values / II... 


Parameter 


vrhame 


attrs 


dim 


values 
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Description 


The mandatory symbolic name of a constant, 
variable, array, external function, statement 
function, or intrinsic function; or the name of 
a function subprogram or an array declarator. 


Cannot be the name of a subroutine or main 
program. 


An optional list of attributes separated by 
commas. The attrs describe uname. The follow- 
ing attributes can be used with vname: 
ALIAS, C, EXTERN, FAR, HUGE, NEAR, 
PASCAL, REFERENCE, VALUE. 


A dimension declarator. If dim is specified, the 
DOUBLE PRECISION statement declares 
the array vname. 


A list of constants and repeated constants, 
separated by commas. A repeated constant 

is written in the form n*constant, where n is 
a positive-nonzero-integer constant, and is 
equivalent to constant repeated n times. The 
/values/ option, if specified, initializes vname. 
The following statement, for example, declares 
that num is of type DOUBLE PRECISION, 
and sets num equal to 56.12: 


DOUBLE PRECISION num /56.12D0/ 


DOUBLE PRECISION 


= Remarks 

A DOUBLE PRECISION statement confirms or overrides the implicit 
type of uname. The name uname is defined for the entire program unit, and 
cannot be defined by any other type statement in that program unit. 


DOUBLE PRECISION statements must precede all executable statements 
in a program unit. 


ws Example 


C EXAMPLE OF DOUBLE PRECISION STATEMENT 
DOUBLE PRECISION xX 
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5.3.15 The ELSE Statement 


= Action 


Marks the beginning of an ELSE block 


= Syntax 


ELSE 


@ Remarks 


An ELSE block consists of any executable statements between the ELSE 
statement and the next ENDIF statement at the same IF level as this 
ELSE statement. The matching ENDIF statement must appear before any 
ELSE or ELSEIF statements of the same IF level. See Section 5.3.30, “The 
IF THEN ELSE Statement,” for a discussion of IF levels. 


Transfer of control into an ELSE block from outside that block is not 
permitted. 
a Example 


CHARACTER C 


READ (*,’(A)*%) C 

IF (C .EQ. ’A’) THEN 
CALL ASUB 

ELSE 
CALL OTHER 


ENDIF 
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5.3.16 The ELSEIF Statement 


= Action 


Causes execution of a block of statements if expression is true 


m Syntax 
ELSEIF (expression) THEN 
Parameter Description 


expression A logical expression 


= Remarks 


The associated ELSEIF block consists of any executable statements 
between the ELSEIF statement and the next ELSEIF, ELSE, or ENDIF 
statement at the same IF level. 


When the ELSEIF statement is executed, expression is evaluated, and the 
following steps are performed: 


If: Then: 


The expression is The next statement executed is the first state- 
true, and there is at ment of the ELSEIF block. 

least one executable 

statement in the 

ELSEIF block 


The expression is The next statement executed is the next 
true, and there ENDIF statement at the same IF level as 
are no executable the ELSEIF statement. 


statements in the 
ELSEIF block 


The expression is The next statement executed is the next 

false ELSEIF, ELSE, or ENDIF statement that 
has the same IF level as the ELSEIF state- 
ment. See Section 5.3.30, “The IF THEN 
ELSE Statement,” for a discussion of IF 
levels. 
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ELSEIF 


After the last statement in the ELSEIF block has been executed, the next 
statement to be executed is the next ENDIF statement at the same IF level 
as this ELSEIF statement. 


Transfer of control into an ELSEIF block from outside that block is not 
permitted. 


m= Example 


CHARACTER C 


READ (*,’(A)*%) C 

IF (C .EQ. “A’%) THEN 
CALL ASUB 

ELSEIF (C .£Q. ’X’) THEN 
CALL XSUB 

ELSE 
CALL OTHER 

ENDIF 


202 


END 


9.0.17 The END Statement 


es Action 


Terminates execution of the main program. In a subprogram, the END 
statement has the same effect as a RETURN statement. The END state- 
ment always marks the end of the program unit in which it appears. 


® Syntax 


END 


& Remarks 


The END statement must appear as the last statement in every program 
unit. An END statement must appear alone on an initial line (that is, not a 
continuation line), with no label. No continuation lines may follow an END 
statement. No other FORTRAN statement may have an initial line that 
appears to be an END statement. 


= Example 


EXAMPLE OF END STATEMENT 
END STATEMENT MUST BE LAST STATEMENT 
IN A PROGRAM 

PROGRAM MYPROG 

WRITE(*, *%(10H HI WORLD!) ’) 

END 


> ip ep) 
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ENDFILE 


5.3.18 The ENDFILE Statement 


= Action 


Writes an end-of-file record as the next record of the file connected to the 


specified unit 


= Syntax 
ENDFILE (unitspec | 
(LUNIT = Juntispec 
[,ERR =erriabe/] 
[,LOSTAT = iocheck])} 


Parameter 


unitspec 


errlabel 


tocheck 
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Description 


An external unit specifier (see Section 4.3.2 
for information). If unitspec has not been 
opened, a run-time error is produced. 


The label of an executable statement in the 
same program unit as the current ENDFILE 
statement. If errlabel is specified, I/O errors 
transfer control to the statement at errlabel. 


_If errlabel is omitted, I/O errors cause run- 


time errors. The effects of I/O errors are deter- 
mined by the presence of iocheck. For more 
information on error handling, see Section 
4.3.10, “Error and End-of-File Handling.” 


An integer variable or integer array element 
that becomes defined as zero if no error is 
encountered, or as a positive integer if an 
error is encountered. For more information on 
error handling, see Section 4.3.10, “Error and 
End-of-File Handling.” | 


ee | 


ENDFILE 


# Remarks 


After writing the end-of-file record, the ENDFILE statement positions the 
file after the end-of-file record. Further sequential data transfer is prohi- 
bited unless you execute either a BACKSPACE or REWIND statement. 


If a direct-access file is connected to unitspec, ENDFILE erases all records 
written beyond the new end-of-file record. 


If a parameter of the ENDFILE statement is an expression that calls a _ 
function, that function must not cause an I/O statement or the EOF intrin- 
sic function to be executed, because the results are unpredictable. 


= Example 


WRITE (6,¥*) X 
ENDFILE 6 
REWIND 6 
READ (6,*) Y 
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ENDIF 

5.0.19 The ENDIF Statement 

= Action 

Terminates a block IF statement. Execution of an ENDIF statement itself 


has no effect on the program. 


m= Syntax 

ENDIF 

= Remarks 

There must be a matching ENDIF statement for every block IF statement 


in a program unit. See Section 5.3.30, “The IF THEN ELSE Statement,” for 
discussion and examples of block IF statements. 


= Example 
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5.3.20 The ENTRY Statement 


= Action 


Specifies an entry point for a subroutine or external function 


a Syntax 


ENTRY enamelleattrs]][(formall[[attrs]],formall[[atirs]]]...)] 


Parameter 


ename 


eattrs 


formal 


attrs 


Description 


The mandatory name of the entry point. If 
ename is an entry point for an external func- 
tion, the type of ename must do one of the 
following: 


® Be declared in the external function’s 
type-declaration section 


@ Be typed by an IMPLICIT statement 


@ Use default rules in determining type 


An optional list of attributes separated by 
commas. The eattrs describe ename. The fol- 
lowing attributes can be used with ename: 
ALIAS, C, PASCAL, VARYING. 


An optional variable name, array name, or for- 
mal procedure name. If the ENTRY statement 
is in a subroutine, formal can be an asterisk. 


A list of attributes separated by commas. 

The atirs describe formal. The following attri- 
butes can be used with formal: FAR, HUGE, 
NEAR, REFERENCE, VALUE. 
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= Remarks 


To begin executing a subroutine or function at the first executable state- 
ment after the ENTRY statement, do the following: 


Type of Call Form of Call 
A subroutine CALL enamel] (Lactuall,actual]...)] 
A function ename (lactuall,actual]...]) 


Note that parentheses are required when calling a function, even if there 
are no arguments. 


You can use ename to reference a subprogram in any program unit except 
the program unit that contains the ENTRY statement defining that name. 
That is, recursive references are not allowed. 


There is no defined limit on the number of ENTRY statements you can tse 
in a subprogram. 


The following restrictions apply to use of the ENTRY statement: 


e Within a subprogram, ename cannot be the same name used as a 
formal argument in a FUNCTION, SUBROUTINE, ENTRY or 
EXTERNAL statement. 


e Ina function subprogram, ename cannot appear in any statement 
other than a type statement until after ename has been defined in 
an ENTRY statement. 


e If one ename in a function subprogram is of character type, all the 
enames in that subprogram must be of character type, and all the 
enames must be the same length. 


@ The argument formal cannot appear in an executable statement 
that occurs before the ENTRY statement in which formal appears, 
unless formal also appears in a FUNCTION, SUBROUTINE, or 
ENTRY statement that precedes the executable statement. 


e An ENTRY statement cannot be used between a block IF statement 
and the corresponding ENDIF statement, or between a DO state- 
ment and the terminal statement of its DO loop. 
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ENTRY 


a Example 


C This program fragment writes a message 

C indicating whether num is positive or negative 
IF (num.GE.0)CALL positive 
ELSE CALL negative 


END 

SUBROUTINE sign 

ENTRY positive 
WRITE(*,*)’It’’s positive.’ 
RETURN 

ENTRY negative 
WRITE(*,*)’It’’s negative. ’ 
RETURN 
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5.3.21 The EQUIVALENCE Statement 


= Action 


Specifies that two or more variables or arrays are to share the same 
memory location 


m2 Syntax 
EQUIVALENCE (nis?) [,(ndisé)]... 


Parameter Description 


nlist A list of at least two variables, arrays, or 
array elements, separated by commas. 


An nlist may not include argument names. 
Subscripts must be integer constants and must 
be within the bounds of the array they index. 
No automatic type conversion occurs between 
the elements in niist. 


# Remarks 

An EQUIVALENCE statement specifies that the elements in nlist must 
have the same first memory location. Variables are said to be “associated” if 
they refer to the same actual memory location. Thus, an EQUIVALENCE 
statement associates the elements in nist. If there is an array name in 

nlist, it refers to the first element of the array. 


Associated character entities may overlap, as in the following example: 


CHARACTER A#4, Be4, C(2)*3 
EQUIVALENCE (A,C(1)), (B,C(2)) 


The preceding example can be graphically illustrated as follows: 


rO11021038041051068078— 
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EQUIVALENCE 


The following rules restrict how you may associate elements: 


A variable cannot be forced to occupy more than one distinct 
memory location, nor can you force two or more elements of the 
same array to occupy the same memory location. For example, the 
following statement would force R to occupy two distinct memory 
locations or S(1) and S(2) to occupy the same memory location: 


C THIS CAUSES AN ERROR 
REAL R,S(10) 
EQUIVALENCE (R,S(1)),(R,$(2)) 


Consecutive array elements must be stored in sequential order. 
The following, for example, is not permitted: 


C THIS CAUSES ANOTHER ERROR 
REAL R(10), S(10) 
FQUIVALENCE (R(1), S(1)), (R(S), S(6)) 


Character and noncharacter elements cannot be associated when the 
$STRICT metacommand is in effect (GNOTSTRICT is the default). 


Character and noncharacter entities cannot be associated so that the 
noncharacter entities start on an odd byte boundary. 


Except in a common block, the compiler aligns noncharacter entities 
on word boundaries. The following, for example, causes an error, 
since it is not possible for both variables A and B to be word 
aligned: 


CHARACTER*1 C1(10) 
REAL A,B 

FQUIVALENCE (A,C1(1))} 
FQUIVALENCE (B,C1(2) } 


For entities in a common block, since positions are fixed, you must 
make sure that noncharacter elements are aligned at words. An 
error message is issued for any noncharacter elements that are not 
word aligned. 


An item that appears in nlist cannot be initialized in a type state- 
ment. The following example causes an error: 


INTEGER i/1/ 
EQUIVALENCE (i,j) 


An EQUIVALENCE statement cannot cause sharing of memory 
between two different common blocks. 
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EQUIVALENCE 


e An EQUIVALENCE statement can extend a common block by 
adding memory elements following the common block, as long as 
the EQUIVALENCE statement does not make a named common 
block’s length different from the length of the same named common 
block in other program units. 


e An EQUIVALENCE statement cannot extend a common block by 
adding memory elements preceding the common block, as in the fol- 
lowing example: 


C THIS CAUSES AN ERROR 
COMMON /ABCDE/ R(10) 
REAL $(10) 
EQUIVALENCE (R(1),S(10)) 


Unless the $STRICT metacommand is specified, only the first subscript is 
required in EQUIVALENCE statements. This makes it easier to port FOR- 
TRAN 66 programs. 


w Example 


C CORRECT USE OF EQUIVALENCE STATEMENT 
CHARACTER NAME, FIRST, MIDDLE, LAST 
DIMENSION NAME(60), FIRST(20), MIDDLE(20), LAST(20) 
FQUIVALENCE (NAME(1), FIRST(1)), (NAME(21),MIDDLE(‘1 
$ (NAME(41), LAST(1)) 


)), 
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5.3.22 The EXTERNAL Statement 


= Action 


Identifies a user-defined name as an external subroutine or function 


a Syntax 
EXTERNAL name [[{attrs]] name [atirs]] J... 
Parameter Description 


name The mandatory name of an external subrou- 
tine or function. 


attrs An optional list of attributes separated by 
commas. The attrs describe name. The follow- 
ing attributes can be used with name: ALIAS, 
C, FAR, NEAR, PASCAL, VARYING. 


m™ Remarks 


Naming a subroutine or function in an EXTERNAL statement declares it 
as an external procedure. Statement-function names (of single-line func- 
tions) cannot appear in an EXTERNAL statement. If an intrinsic-function 
name appears in an EXTERNAL statement, that name becomes the name 
of an external procedure, and the corresponding intrinsic function can no 
longer be called from that program unit. A user name can only appear once 
in an EXTERNAL statement in any given program unit. 


In FORTRAN, the EXTERNAL statement is used primarily to specify that 
a particular user-defined name is a subroutine or function to be used as a 
procedural parameter. The EXTERNAL statement may also indicate that a 
user-defined function is to replace an intrinsic function of the same name. 


In assembly language and Microsoft Pascal, extern means that an object is 
defined outside the current compilation or assembly unit. This is unneces- 
sary in Microsoft FORTRAN since standard FORTRAN practice assumes 
that any object referred to, but not defined in, a compilation unit is defined 
externally. 
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= Examples 


The following two program fragments contain examples of the EXTERNAL 
statement: 


C EXAMPLE OF EXTERNAL STATEMENT 
EXTERNAL MYFUNC, MYSUB 

C MYFUNC AND MYSUB ARE PARAMETERS TO CALC 
CALL CALC (MYFUNC, MYSUB) 


C EXAMPLE OF A USER-DEFINED FUNCTION 
C REPLACING AN INTRINSIC 

EXTERNAL SIN 

X = SIN (A,4.2,37) 
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FORMAT 
5.3.23 The FORMAT Statement 


=@ Action 


Directs the editing of data 


a Syntax 
FORMAT ([editlist]) 
Parameter Description 
editlist A list of editing descriptions (for information 
on editlist, see Section 4.3.6). 
x Remarks 
FORMAT statements must be labeled. 
Invalid editlist strings generate warning messages. 
Table 4.6 summarizes the nonrepeatable edit descriptors. Table 5.5 sum- 


marizes the repeatable edit descriptors. See Section 4.8, “Formatted I/O,” 
for further information on edit descriptors and formatted I/O. 


Table 5.5 
Repeatable Edit Descriptors 


Descriptor Use 

Iw[.m] Integer editing 

Zw Hexadecimal editing 

Fw.d Real editing 

Ew.d[Ee] Real editing with exponent 

Gw.d[Ee] Real editing for wide range 
of values 

Dw.d Double-precision real editing 

Lw Logical editing 

Alw] Character editing 
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FUNCTION 


5.3.24 The FUNCTION Statement (External) 


= Action 


Identifies a program unit as a function and supplies its type, name, and 


optional formal parameter(s) 


mg Syntax 


[type] FUNCTION fname {[fatirs]] (Lformal [[atirs]])1,formall[atirs]]]...) 


Parameter 


type 
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Description 


Defines the type of the function. The type 
parameter must be one of the following: 


CHARACTER 
CHARACTER #n 
COMPLEX 
COMPLEX *8 
COMPLEX «16 
DOUBLE PRECISION 
INTEGER 
INTEGER *1 
INTEGER «2 
INTEGER «4 
INTEGER[C] 
LOGICAL 
LOGICAL #1 
LOGICAL +*2 
LOGICAL#4 
REAL 

REAL*4 

REAL #8 


If type is omitted, the function’s type is deter- 
mined by any IMPLICIT or type statements 
that would determine the type of an ordinary 
variable. 


If type is specified, then the function name 
cannot appear in any type statements. 


FUNCTION 


fname The name of the function. The name fname 
cannot appear in COMMON, DATA, 
EQUIVALENCE, or INTRINSIC statements. 


fatirs A list of attributes, separated by commas. The 
fattrs describe fname. The following attributes 
can be used with fname: ALIAS, C, FAR, 
NEAR, PASCAL, VARYING. 


formal One or more formal argument names. If more 
than one is specified, they must be separated 
by commas. 


The list of argument names defines the 
number of arguments to that function. With 
any subsequent IMPLICIT, EXTERNAL, 
type, or DIMENSION statements, the list of 
argument names defines the type of any 
argument to that function. Argument 

names cannot appear in COMMON, DATA, 
EQUIVALENCE, or INTRINSIC statements. 


atirs A list of attributes separated by commas. The 
attrs describe formal. The following attributes 
can be used with formal: FAR, HUGE, 
NEAR, REFERENCE, VALUE. 


= Remarks 


The function name is global, but it is also local to the function it names. 
The function name fname must appear as a variable in the program unit 
that defines the function. Every execution of that function must assign a 
value to fname. The final value of fname, upon execution of a RETURN 
or an END statement, defines the value of the function. 


Note 


Alternate-return specifiers are not allowed in FUNCTION statements. 


After being defined, the value of fname can be referenced in an expression, 
like any other variable. 
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In addition to returning the value of the function, an external function 
can return values by assignment to any of its formal arguments that were 
passed by reference. 


A function can be called from any program unit. However, FORTRAN does 
not allow recursive function calis, which means that a function cannot call 
itself directly, nor can it call another function if such a call results in that 

function being called again before it returns control to its caller. Recursive 
calls are not detected by the compiler, even if they are direct. 


There must be the same number of actual arguments in the FUNCTION 
statement as there are formal arguments in the corresponding function 
reference, unless the C and VARYING attributes have been used to 
declare the function. 


= Example 


C EXAMPLE OF A FUNCTION REFERENCE 
C GETNO IS A FUNCTION THAT READS A 
C NUMBER FROM A FILE OPEN ON UNIT I 
[=2 
10 IF (GETNO(I) .EQ@. 0.0) GOTO 10 
STOP 
END 


FUNCTION GETNO(NOUN 
READ(NOUNIT, “%(F10 
GETNO = R 

RETURN 

END 
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GOTO (Assigned) 
5.3.25 The GOTO Statement (Assigned GOTO) 


= Action 


Causes the statement labeled by the label last assigned to variable to be the 
next statement executed 


=m Syntax 
GOTO variable {[,] Gabels)] 
Parameter Description 


variable An integer-variable name. 


When the assigned GOTO statement is 
executed, variable must have been assigned 
the label of an executable statement in the 
same program unit as the assigned GOTO 
statement. 


labels List of one or more statement labels of execut- 
able statements in the same program unit as 
the assigned GOTO statement. If more than 
one label is specified, the labels are separated 
by commas. 


The same /abel may appear repeatedly in the 
list of labels. 


= Remarks 


If you specify the $3DEBUG metacommand, a run-time error is generated if 
the label assigned to name is not one of the labels specified in the label list. 


Jumping into a DO, IF, ELSEIF, or ELSE block from outside the block is 
not normally permitted. A special feature, extended-range DO loops, does 
permit jumping into a DO block. See Section 6.2.3, “The $DO66 Metacom- 
mand,” for more information. 
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GOTO (Assigned) 


= Examples 


C EXAMPLE OF ASSIGNED GOTO 
ASSIGN 10 TOD I 
GOTO | 
10 CONTINUE 


The following example uses an assigned GOTO statement to check the 
value of clearance: 


$DEBUG 


integer view, clearance 


C These statements assign an appropriate label to view. 
IF (clearance .EQ@. 1) THEN 
ASSIGN 200 TO view 
ELSEIF (clearance .EQ. 2) THEN 
ASSIGN 400 TQ view 
ELSE 
ASSIGN 100 TO view 
ENDIF 


C Show user appropriate view of data depending upon 
C security clearance. 
GOTO view (100,200,400) 


C If, in the above GOTO, view had not been assigned one 
C of the valid labels of 100, 200, or 400, a run-time 
C error would have been generated. 

100 CONTINUE 

200 CONTINUE 


400 CONTINUE 


END 
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GOTO (Computed) 
5.3.26 The GOTO Statement (Computed GOTO) 


= Action 


Transfers control to the statement at the ith label in the list 


mg Syntax 
GOTO (labels) {1 i 
Parameter Description 


labels One or more mandatory statement labels of 
executable statements from the same program 
unit as the computed GOTO statement. If 
more than one label is specified, the labels 
are separated by commas. 


The same statement label may be repeated in 
the list of labels. 


l A mandatory integer expression. Control is 
transferred to the ith label in the list. 


= Remarks 


If there are n labels in the list of labels and 7 is out of range (that is, i > n 
or i < 1), the computed GOTO statement acts like a CONTINUE state- 
ment. Otherwise, the next statement executed is the one at the ith label in 
the list of labels. 


Jumping into a DO, IF, ELSEIF, or ELSE block from outside the block is 
not normally permitted. A special feature, extended-range DO loops, does 
permit jumping into a DO block. See Section 6.2.3, “The $DO66 Metacom- 
mand,” for information. 
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GOTO (Computed) 


m= Example 
C EXAMPLE OF COMPUTED GOTO 
I = 1 
C The following statement transfers control to 


C statement 10 
GOTO (10, 20) I 


10 CONTINUE 


20 CONTINUE 
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GOTO (Unconditional) 
5.3.27 The GOTO Statement (Unconditional GOTO) 


@ Action 


Transfers control to the statement specified by label 


= Syntax 
GOTO label 
Parameter | Description 
label The statement label of an executable state- 
ment in the same program unit as the GOTO 
statement. 


= Remarks 
Jumping into a DO, IF, ELSEIF, or ELSE block from outside the block is 
not normally permitted. A special feature, extended-range DO loops, does 


permit jumping into a DO block. See Section 6.2.3, “The $DOQ66 Metacom- 
mand,” for information. 


-@ Example 


C EXAMPLE OF UNCONDITIONAL GOTO 
GOTQ 4022 


4022 CONTINUE 
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IF (Arithmetic) 


5.3.28 The IF Statement (Arithmetic IF) 


= Action 


Transfers control to the statement specified by one of three labels, depend- 
ing on the result of expression 


mw Syntax 


IF (expression) labell, label2, label3 


Parameter 


expression 


labell, label2, label3 


= Remarks 


Description 


An integer expression or a single- or double- 
precision real expression. 


Statement labels of executable statements in 
the same program unit as the arithmetic IF 
statement. 


The same statement label may appear more 
than once among the three labels. 


The arithmetic IF statement transfers control as indicated in the follow- 


ing list: 
If: 


The expression < 0 
The expression = 0 


The expression > 0 


Then: 
The next statement executed is the statement 
at labell. 


The next statement executed is the statement 
at label2. 


The next statement executed is the statement 
at labels. 


Jumping into a DO, IF, ELSEIF, or ELSE block from outside the block is 
not normally permitted. A special feature, extended-range DO loops, does 
permit jumping into a DO block. See Section 6.2.3, “The $DO66 Metacom- 


mand,” for information. 
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IF (Arithmetic) 


m Example 


C EXAMPLE OF ARITHMETIC IF 
DO 40 J=-1,1 
T=J 
The following statement transfers control to 
statement 10 the first time, to statement 20 the 
second time, and to statement 30 the third time. 
IF (1). 10, 20; 30 
10 CONTINUE 


MO ©) 


20 CONTINUE 
30 CONTINUE 


40 CONTINUE 
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IF (Logical) 
5.3.29 The IF Statement (Logical IF) 


m Action 

Executes statement, if expression is true; continues as if a CONTINUE 
statement were encountered, if expression is false 

ms Syntax 


IF (expression) statement 


Parameter Description 
expression A logical expression. 
statement Any executable statement except a DO, 


ELSEIF, ELSE, ENDIF, END, block IF, 
or another logical IF statement. Note that 
the statement can be an arithmetic IF. 


mg Examples 


C EXAMPLES OF LOGICAL IF 
IF (I .EQ@. 0) J = 2 
IF (X .GT. 2.3) GOTO 100 


100 CONTINUE 


226 


IF THEN ELSE 


5.3.30 The IF THEN ELSE Statement (Block IF) 


= Action 

Begins executing statements in the IF block, if expression is true; transfers 
control to the next ELSE, ELSEIF, or ENDIF statement at the same IF 
level, if expression is false 

m Syntax 

IF (expression) THEN 


Parameter Description 


expression A logical expression 


= Remarks 

The associated IF block consists of all the executable statements (possibly 
none) between the IF statement and the next ELSEIF, ELSE, or ENDIF 
statement at the same iF level as this block IF statement. 


The block IF statement transfers control as indicated in the following list: 


If: Then: 

The expression 1s The next statement executed is the next 
true, and the IF ENDIF statement at the same IF level as 
block has no the block IF statement. 

executable 

statements 

The expression 1s The next statement executed is the first exe- 
true, and there is at cutable statement in the IF block. 


least one executable 
statement in the IF 


block 
The expression 1s The next statement executed is the next 
false ELSEIF, ELSE, or ENDIF statement at the 


same IF level as the block IF statement. 
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IF THEN ELSE 


After execution of the last statement in the IF block, the next statement 
executed is the next ENDIF statement at the same IF level as the block 
IF statement. 


Transfer of control into an IF block from outside that block is not 
permitted. 


IF levels are defined as if minus endif, where if is the number of block IF 
statements from the beginning of the program unit in which the statement 
occurs, up to and including that statement, and endif is the number of 
ENDIF statements from the beginning of the program unit up to, but not 
including, that statement. 


Item Required IF-Level Value 

Statement Greater than or equal to 0 and less than 
approximately 50 

Block IF, ELSEIF, Greater than 0 and less than approx- 

ELSE, and ENDIF imately 50 

END statement ) 
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IF THEN ELSE 


Examples 


Simple block IF that skips a group of statements if 
the expression is false: 


IF(I.LT.10)THEN 
THE NEXT TWO STATEMENTS ARE ONLY EXECUTED IF 
i bo. dpe 40 
J=] 
SLICE=TAN(ANGLE) 
ENDIF 


Block IF with ELSEIF statements: 


IF(J.GT.1000)THEN 
statements here are executed only if J.GT.1000 
ELSEIF (J.GT.100)THEN 
statements here are executed only if J.GT.100 and 
J.LE.1000 
ELSEIF td.GT 1.0) THEN 
Statements here are executed only if J.GT.10 and 
J.LE.100 7 
ELSE 
Statements here are executed only if J.LE.10 
ENDIF 


Nesting of constructs and use of an ELSE statement 
Following a block IF without intervening ELSEIF 
Statements: 


IF(I.LT.100) THEN 
Statements here are executed only if I.LT.100 
IF(J.LT.10) THEN 
Statements here are executed only if I.LT.100 and 
wr ta Flea (a0 
ENDIF 
Statements here are executed only if I.LT.100 
ELSE 
Statements here are executed only 17 TxwGE e100 
LE teil «OC LAE 
Statements here are executed only if I.GE.100 and 
J.LT.10 
ENDIF 
Statements here are executed only if 1.GE.100 
ENDIF 
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IMPLICIT 


5.3.31 The IMPLICIT Statement 


= Action 


Defines the default type for user-declared names 


= Syntax 


IMPLICIT type (letters) [type (letters)]]... 
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Parameter 


type 


letters 


Description 


One of the following types: 


CHARACTER 
CHARACTER *«n 
COMPLEX 
COMPLEX «8 
COMPLEX * 16 
DOUBLE PRECISION 
INTEGER 
INTEGER *1 
INTEGER «2 
INTEGER *4 
INTEGER[C] 
LOGICAL 
LOGICAL #1 
LOGICAL *2 
LOGICAL #4 
REAL 

REAL#*4 
REAL#8 


A list of single letters and ranges of letters. 
If more than one letter or range is listed, they 
must be separated by commas. 


A range of letters is indicated by the first and 
last letters in the range, separated by a minus 
sign. The letters for a range must be in alpha- 
betical order. Note that Microsoft FORTRAN 
allows the use of the dollar sign ($) as an 
alphabetic character that follows the letter Z. 


IMPLICIT 


= Remarks 


An IMPLICIT statement defines the type and size for all user-defined 
names that begin with any of the letters specified. An IMPLICIT state- 
ment applies only to the program unit in which it appears and does not 
change the type of any intrinsic function. 


IMPLICIT types for any specific user name can be overridden or confirmed 
if that name is given in a subsequent type statement. An explicit type in a 
FUNCTION statement also takes priority over the type indicated by an 
IMPLICIT statement. If the type in question is a character type, the 
length is also overridden by a later type definition. 


A program unit can have more than one IMPLICIT statement. However, 
all IMPLICIT statements must precede all other specification statements 
in that program unit. The same letter cannot be defined more than once in 
an IMPLICIT statement in the same program unit. 


=m Example 


C EXAMPLE OF IMPLICIT STATEMENT 
IMPLICIT INTEGER (A - B) 
IMPLICIT CHARACTER*10 (N) 
C The following statement overrides the implicit 
C INTEGER type for the variable ANYNAME 
CHARACTER*20 ANYNAME 
AGE = 10 . 
NAME = ‘PAUL’ 


231 


INQUIRE 
5.3.32 The INQUIRE Statement 


m= Action 


Examines the properties of a unit or a named file 


= Syntax 


INQUIRE ({([UNIT = Junitspec | FILE = file} 
[ACCESS = access] 
[,.BINARY = binary] 
[,BLANK = blank] 
[,.BLOCKSIZE = blocksize] 
[,DIRECT = direct] 

[ERR =errlabel] 

[EXIST = exist] 

[,FORM =form] 
[FORMATTED = formatted] 
[ IOSTAT = iocheck] 
[,MODE = mode] 

[NAME = name] 

[NAMED = named] 

[, NEXTREC = nextrec] 

|, NUMBER=num] 
[,OPENED = opened] 
[,RECL=recil] 
LSEQUENTIAL=seg] 
[SHARE = share] 
[.UNFORMATTED = unformatied]) 


Except as specified for unitspec below, the parameters can appear in 
any order. 


Parameter Description 
unitspec If UNIT= is omitted, unitspec must be the 
first specifier. 


You can use either an integer or an asterisk 
(*) as unitspec. If UNIT= * is specified, you 
may not include the NUMBER= option, or a 
run-time error is generated. 
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file 


access 


binary 


blank 


blocksize 


direct 


INQUIRE 


see Section 4.3.2, “Units,” for information 

on unit specifiers. Exactly one unitspec or file 
must be specified, but not both. If unitspec is 
specified, the inquire operation is called an 
“inquire-by-unit” operation. 


A character expression that evaluates to the 
name of the file being inquired about. Exactly 
one unitspec or file must be specified, but not 
both. If file is specified, the inquire operation 
is called an “inquire-by-file” operation. 


A character variable or character array ele- 
ment. Set to "SEQUENTIAL if the unit or 
file specified by wnitspec or file is connected for 
sequential access. Set to DIRECT?’ if the unit 
or file specified by wnitspec or file is connected 
for direct access. In an inquire-by-unit opera- 
tion, if no file is connected to unitspec, access 
is undefined. 


A character variable or character array ele- 
ment. Set to YES’ if binary is among the set 
of allowable forms for the file specified by file 
or connected to unitspec. Set to ’NO’ or 
"UNKNOWN’ otherwise. 


A character variable or character array ele- 
ment. Set to ’(NULL’ if the BN edit descriptor 
is in effect; set to "ZERO’ if BZ is in effect. 


An integer variable or integer array element. 
If the wnitspec or file is connected, blocksize is 
set to the I/O buffer size being used by the 
unttspec or file. If unitspec or file is not con- 
nected, blocksize is undefined. 


A character variable or character array ele- 
ment. Set to YES’ if direct is among the set of 
allowable access modes for the file specified by 
file or connected to unitspec. Set to ’NO’ or 
"UNKNOWN’ otherwise. 
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errlabel 


exist 


form 


formatted 


tocheck 


mode 
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The label of an executable statement in the 
same program unit as the current INQUIRE 
statement. If errlabel is specified, I/O errors. 
transfer control to the statement at errlabel. 
If errlabel is omitted, I/O errors cause run- 
time errors. The effects of I/O errors are deter- 
mined by the presence of tocheck. For more 
information on error handling, see Section 
4.3.10, “Error and End-of-File Handling.” 


A logical variable or logical array element. 
Set to .TRUE. if the unit or file specified by 
unitspec or file exists; set to .FALSE. other- 
wise. 


A character variable or character array ele- 
ment. Set to FORMATTED’ if the unit or 

file specified by unitspec or file is connected 
for formatted I/O; set to "BINARY ’ for bina- 
ry I/O; or set to "UNFORMATTED?’ for un- 
formatted I/O. 


A character variable or character array ele- 
ment. Set to YES’ if formatted is among the 
set of allowable forms for the file specified by 
file or connected to unitspec; set to NO’ or 
"UNKNOWN’ otherwise. 


An integer variable or integer array element 
that becomes defined as zero if no error is 
encountered, or as a positive integer if an 
error is encountered. For more information on 
error handling, see Section 4.3.10, “Error and 
End-of-File Handling.” 


A character variable or character array ele- 
ment. Set to the current mode status of the 
specified unit. The strings are the same as 
those specified in the OPEN statement: 
"READ’, ’WRITE’, and ’READWRITE’. 
In an inquire-by-unit operation, if no file is 
connected to unitspec, mode is undefined. 


NAME 


named 


nextrec 


num 


opened 


recl 


INQUIRE 


A character variable or character array 
element. 


In an inquire-by-unit operation, set to the 
name of the file connected to wnitspec. If no 
file is connected to unitspec, or if the file con- 
nected to unitspec does not have a name, name 


is undefined. In an inquire-by-file operation, 


set to the name specified for file. 


A logical variable or a logical array element. 
Set to .FALSE. if the file specified by file or 
attached to wnitspec is not open or if it isa 
scratch file; set to .TRUE. otherwise. 


An integer variable or integer array element 
that is assigned the record number of the next 
record in a direct-access file. The first record 
in a direct-access file has record number 1. 


An integer variable or integer array element. 


In an inquire-by-file operation, set to the 
number of the unit connected to file. If no unit 
is connected to file, num is undefined. In an 
inquire-by-unit operation, set to the number 
specified by unitspec. If you specify UNIT= *, 
do not include the NUMBER= option, or a 
run-time error is generated. 


A logical variable or logical array element. 


In an inquire-by-unit operation, set to .TRUE. 
if any file is currently connected to unitspec; 
set to .FALSE. otherwise. In an inquire-by- 
file operation, set to . TRUE. if file is cur- 
rently connected to any unit; set to .FALSE. 
otherwise. 


An integer variable or array element name 
that specifies the length (in bytes) of each 
record in a direct-access file. If the file is con- 
nected for unformatted I/O, the value will be 
in processor-dependent units. 
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seq 


share 


unformatted 


Remarks 


A character variable or character array ele- 
ment. Set to YES’ if sequential is among the 


set of allowable access modes for the file speci- 


fied by file or connected to unitspec; set to 
°"NO’ or "UNKNOWN’ otherwise. 


A character variable or character array ele- 
ment. Set to the current share status of the 
file specified by file or connected to untispec. 
The strings are the same as those specified 
in the OPEN statement: "COMPAT’, 
‘DENYRW’, ’DENYWR’, ’"DENYRD’, and 
"DENYNONE?’. In an inquire-by-unit opera- 
tion, if no file is connected to unitspec, share 
is undefined. 


A character variable or character array ele- 
ment. Set to YES’ if unformatted is among 
the set of allowable forms for the file specified 
by file or connected to unitspec; set to NO’ or 
"UNKNOWN’ otherwise. 


The INQUIRE statement returns the values of the various attributes with 
which a file was opened. Note that the INQUIRE statement cannot deter- 
mine the properties of an unopened file, and it cannot distinguish between 
attributes that were specified by you and attributes that were set by 
default. 


You can execute the INQUIRE statement at any time. The values it 
returns are those that are current at the time of the call. 


If a parameter of the INQUIRE statement is an expression that calls a 
function, that function must not cause an I/O statement or the EOF intrin- 
sic function to be executed because the results are unpredictable. 
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INQUIRE 


a Example 


C This program asks for the name of a data file. The INQUIRE 
C statement is then used to determine whether or not the file 
C exists. If it does not, the program asks for another file 
C name. 
CHARACTER*#12 fname 
LOGICAL exists 
C Get the name of a file from the user. 
100 WRITE(*,7{1X,A)’) ’Enter the name of the data file: 
READ(*,’(A12)%) fname 


C Get EXIST information about the specified file. 
INQUIRE(FILE=fname,EXIST=exists) 


C Check to see if the specified file exists. 

IF (.not. exists) THEN 
WRITE(*,’7(2A/)%) % *#* Cannot find file ’, fname 
GOTO 100 

ENDIF 


END 
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INTEGER 


5.3.00 The INTEGER Statement 


m= Action 


Specifies the type of user-defined names 


= Syntax 


INTEGER([ * bytes] | [[C]} vnamellattrs]]l * length] (dim) ]l / values 7 | 
[,vramel latirs]pl * length) [(dim)]ll / values /]]... 


The order of the length and dim parameters can be reversed. 


Parameter 


bytes 


UNAINE 


attrs 


length 


dim 
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Description 


Must be 1, 2, or 4. The bytes parameter speci- 
fies the length, in bytes, of the items specified 
by the INTEGER statement. This value can 
be overridden by the length parameter. 


The symbolic name of a constant, variable, 
array, external function, statement function, 
or intrinsic function; or, a function subpro- 
eram or an array declarator. The uname 
parameter cannot be the name of a subroutine 
or main program. 


A list of attributes separated by commas. The 
attrs describe uname. These attributes can be 
used with uname: ALIAS, C, EXTERN, FAR, 
HUGE, NEAR, PASCAL, REFERENCE, 
VALUE. 


Must be 1, 2 or 4. The length parameter 
assigns the specified length to uname. If length 
is specified, it overrides the length attribute 
specified by bytes. 


A dimension declarator. You can only specify 
dim if uname is an array. If dim is specified, 
the INTEGER statement declares the array 
uname. 


INTEGER 


values A list of constants and repeated constants, 
separated by commas. A repeated constant is 
written in the form n*constant, where n is a 
positive-nonzero-integer constant, and is 
equivalent to constant repeated n times. The 
/values/ option, if specified, initializes 
vname. The following statement, for example, 
declares that num is of type INTEGER, and 
sets num equal to 1 0: 


INTEGER num /10/ 


= Remarks 

An INTEGER statement confirms or overrides the implicit type of uname. 
The name uname is defined for the entire program unit, and cannot be 
defined by any other type statement in that program unit. 


INTEGER statements must precede all executable statements. 


= Examples 


C EXAMPLES OF INTEGER STATEMENTS 
INTEGER COUNT, MATRIX(4,4), SUM 
INTEGER#2 Q, M12*4, IVEC(10)*4, 2*4(10) 
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5.3.04 The INTERFACE Statement 


Action 


Declares a subprogram, its attributes, and formal argument types 


Syntax 


INTERFACE TO {functionstatement | subroutinestatement} 


Parameter Description 
functionstatement A function statement 
subroutinestatement A subroutine statement 


=s Remarks 


An interface defines the subroutine or function specified after the words 
INTERFACE TO in the interface. 


An interface consists of an INTERFACK statement followed by the 
declaration statements of a subprogram. The only statements that can 
appear in an interface are INTERFACE, EXTERNAL, INTRINSIC, 
DIMENSION, END, and type statements. 


The INTERFACE statement can be used to make sure that calls to a sub- 
program have appropriate arguments. If the subprogram and interface are 
in the same source file, the compiler ensures that the names, types, and 
number of arguments in the subprogram are consistent with those in the 
interface. 


If you plan to compile parts of your program separately, you can include 
the interface in every source file that uses or defines the subprogram. The 
interface should occur before any references to the subprogram are made. If 
you put the text of the interface in a separate file and use the $INCLUDE 
metacommand (see Section 6.2.6, “The $INCLUDE Metacommand”) in 
every file using the function or subroutine, then the same definition is 

used everywhere. 
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The compiler ensures that the arguments in calls to the subprogram are 
compatible with those defined by the interface. When the interface refers to 
a subprogram in the same source file, the compiler ensures that the names, 
types, and number of arguments are consistent. 


Attributes used in an interface override the default definitions in the sub- 
program definition. However, if you use an attribute in the subprogram 
declaration or its arguments, the same attribute must appear in the 
INTERFACE statement. 


Example 


INTERFACE TO INTEGER FUNCTION f(11,J1,K1)} 
INTEGER*2 11 

REAL J1 

EXTERNAL K1 

END 


The above interface defines the following function: 


INTEGER FUNCTION f(1I,J,K) 
INTEGER*2 | 

REAL J 

EXTERNAL K 


END 
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5.3.35 The INTRINSIC Statement 


= Action 


Declares that a name is an intrinsic function 


w Syntax 
INTRINSIC names 
Parameter Description 


names One or more intrinsic-function names. If more 
than one name is specified, the names must be 
separated by commas. 


= Remarks 


Each user-defined name may appear only once in an INTRINSIC state- 
ment. A name that appears in an INTRINSIC statement cannot appear in 
an EXTERNAL statement. All names used in an INTRINSIC statement 
must be system-defined intrinsic functions. For a list of these functions, 
see Appendix B, “Intrinsic Functions.” 


You must specify the name of an intrinsic function in an INTRINSIC 
statement if you wish to pass that intrinsic function as an argument. 


= Example 


C EXAMPLE OF INTRINSIC STATEMENT 
INTRINSIC SIN, COS 

C SIN AND COS ARE ARGUMENTS TO CALC2 
X = CALC2 (SIN, COS) 
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5.3.36 The LOCKING Statement 


# Action 


Allows you to lock direct-access files and records to prevent access by other 
users In a network environment. 


@ Syntax 


LOCKING ({UNIT = Junitspec 
[,ERR = erriabel] 

[ LOSTAT = iocheck] 

| LOCKMODE = lockmode] 

{, REC = rec] 

[,RECORDS =recnum]) 


Except as specified for unitspec below, the parameters can appear in any 
order. 


Parameter Description 


unitspec An integer that is the number of the unit 
being locked. If UNIT= is omitted, uwnitspec 
must be the first parameter. The file attached 
to unitspec must have been opened for direct 
access (see Section 4.3.2, “Units,” for more 
information on unit specifiers). 


errlabel The label of an executable statement in the 
same program unit as this statement. If 
errlabel is specified, I/O errors transfer control 
to the statement at errlabel. If errlabel is omit- 
ted, I/O errors cause run-time errors. The 
effects of I/O errors are determined by the 
presence of tocheck. For more information on 
error handling, see Section 4.3.10, “Error and 
End-of-File Handling.” 


tocheck An integer variable or integer array element 
that becomes defined as zero if no error is 
encountered, or as a positive integer if an 
error is encountered. For more information 
on error handling, see Section 4.3.10, “Error 
and End-of-File Handling.” 
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lockmode 


rec 


recnum 
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A character expression with one of the follow- 


ing values: : 

Value Description om 
"UNLCK’ Unlocks the specified region. 

’"LOCK’ Locks the specified region. 


Waits for any part of the 
region locked by a different 
process to become available. 


"NBLCK’ Locks the specified region. If 
any of the records are already 
locked by a different process, 
an error is returned. This 
nonblocking lock is the 
default. 


"RLCK’ Locks the specified region for 
write access only. This read 
lock is the same as "LOCK’ 
except it locks for write access 
only. 


"NBRLCK’ Locks the specified region for 
write access only. This non- 
blocking read lock is the same 
as ’NBLCK’ except it locks 
for write access only. 


If you are using Microsoft FORTRAN with 
versions of MS-DOSe prior to 3.0, "LOCK’, 
"RLCK’, and "NBRLCK’ are all identical to 
"NBLCK’. 


An integer expression that is the number 

of the first record in a group of records to be 
locked or unlocked. If rec is omitted, the next 
record (the one that would be read by a 
sequential read) is locked. 


An integer expression that is the number of | 
records to be locked. It defaults to 1. oe 


LOCKING 


# Remarks 


The LOCKING statement has no effect when used with versions of 
MS-DOS earlier than 3.0. 


If a parameter of the LOCKING statement is an expression that calls 


a function, that function must not cause an 1/O statement or the KOF 
intrinsic function to be executed, because the results are unpredictable. 
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5.3.37 The LOGICAL Statement 


m Action 


Specifies the type of user-defined names 


m Syntax 


LOGICAL [ # bytes] vnamelfattrs]][ * length] (dim) Il / values /] 
[,vramel] [attrs]]l * length] (dim) I / values /] J... 


Parameter 


bytes 


uname 


attrs 


length 


dim 
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Description 


Must be 1, 2, or 4. The bytes parameter speci- 
fies the length, in bytes, of the items specified 
by the LOGICAL statement. This value can 
be overridden by the length parameter. 


The symbolic name of a constant, variable, 
array, external function, statement function, 
or intrinsic function; or, a function subpro- 
eram or an array declarator. 


The vname parameter cannot be the name of 
a subroutine or main program. 


A list of attributes separated by commas. The 
attrs describe vname. These attributes can be 
used with uname: ALIAS, C, EXTERN, FAR, 
HUGE, NEAR, PASCAL, REFERENCE, 
VALUE. 


Must be 1, 2, or 4. The length parameter 
assigns the length to uname. If length is speci- 
fied, it overrides the length attribute specified 
by bytes. The default for length is the setting 
of the $STORAGE metacommand. 


A dimension declarator. If dim is specified, the 
LOGICAL statement declares uname as an 
array. 


LOGICAL 


values A list of constants and repeated constants, 
separated by commas. A repeated constant is 
written in the form n*constant, where n is 
a positive-nonzero-integer constant, and is 
equivalent to constant repeated n times. The 
/values/ option, if specified, initializes 
uname. The following statement, for example, 
declares that switch is of type LOGICAL, 
and sets switch equal to .TRUE.: 


LOGICAL switch /.TRUE./ 


m= Remarks 

A LOGICAL statement confirms or overrides the implicit type of uname. 
The name vname is defined for the entire program unit, and it cannot be 
defined by any other type statement in that program unit. 


LOGICAL statements must precede all executable statements. 
m= Example 


C EXAMPLE OF LOGICAL STATEMENTS 
LOGICAL SWITCH 
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5.3.08 The OPEN Statement 


w Action 


Associates a unit number with an external device or with a file on an 


external device 


= Syntax 


OPEN ((UNIT= Junitspec 
[ACCESS = access] 
[,BLANK = blank] 
[,.BLOCKSIZE = blocksize] 
[ ERR =errlabel] 

[,FILE = file] 

[,FORM = form] 

[ IOSTAT =iocheck] 

[ MODE = mode] 

[ RECL= recl] 

L SHARE = share] 

{ STATUS = status]) 


If the optional string UNIT= is omitted, then the parameter uwnitspec must 
be the first parameter. The other parameters can appear in any order. 
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Parameter 


uNItS PEC 


access 


blank 


Description 


An external unit specifier. (See Section 4.3.2, 
“Units,” for information about unit specifiers.) 


A character expression; evaluates to "DIRECT’, 
when trailing blanks are removed, or to 
SEQUENTIAL’ (the default). These character 
constants may contain trailing blanks. 


A character variable or character array element. 
When trailing blanks are removed, blanks must be 
equal to NULL’ or ’ZERO’. Set to NULL’ (for use 
with the BN edit descriptor); blank numeric fields 
in the file are ignored by default. If set to "ZERO’ 
(for use with the BZ edit descriptor), blank numeric 
fields are loaded as zeros. 


blocksize 


errlabel 


file 


OPEN 


An integer expression specifying the internal buffer 
size for use in I/O on the unit specified by wnitspec. 
See Section 4.3.9, “Input/Output Buffer Size,” for 
more information about internal buffer sizes. 


The label of an executable statement in the same 
program unit as this statement. If errlabel is speci- 
fied, I/O errors transfer control to the statement at 
errlabel. If errlabel is omitted, I/O errors cause run- 
time errors. The effects of I/O errors are determined 
by the presence of tocheck. For more information on 
error handling, see Section 4.3.10, “Error and End- 
of-File Handling.” 


A character expression. If file is omitted, the com- 
piler creates a temporary scratch file with a name 
unique to the unit. The scratch file is deleted when 
it is either explicitly closed or the program termi- 
nates normally. 


If the file name specified is blank (FILE =’ ’), the 
following steps are taken: 


1. The program attempts to read the name of the 
file from the list of names supplied (if any) on 
the command line used to invoke the program. 
If you specify a null argument on the command 
line ("" '"), you will be prompted for the corre- 
sponding file name. Execution of successive 
OPEN statements reads successive command- 
line arguments. 


2. If there are more such OPEN statements than 
command-line arguments, the program prompts 
you for file names. Prompts are written to the 
unit associated with *. 


For example, assume that the following command is 
used to invoke the program MYPROG: 


myprog one two 


MYPROG contains four OPEN statements with 
blank file names, in the following order: 


OPEN(2, FILE=" “) 
OPEN(4, FILE=" ”) 
OPEN(S, FILE=’ “) 
OPEN(10, FILE=" “) 
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form 


iocheck 


mode 


Unit 2 is associated with file one. Since a null 
argument was specified on the command line for 
the second file name, the OPEN statement for unit 
4 produces the following message: 


File name missing or blank - 
Please enter name UNIT 4? 


Unit 5 is associated with file two. Since no fourth 
file was specified on the command line, the OPEN 
statement for unit 10 produces the following 
message: 


File name missing or blank - 
Please enter name UNIT 10? 


A character expression that evaluates to 
"FORMATTED’, "UNFORMATTED’, or 
"BINARY’, when trailing blanks are removed. 


If access is sequential, the default for form is 
"FORMATTED’; if access is direct, the default is 
"UNFORMATTED’. 


An integer variable or integer array element that 
becomes defined as a negative integer if an end-of- 
file record is encountered, as zero if no error is 
encountered, or as a positive integer if an error is 
encountered. For more information on error han- 
dling, see Section 4.3.10, “Error and End-of-File 
Handling.” 


A character expression that evaluates to "READ’ 
(the process can read the file), "WRITE’ (the pro- 
cess can write to the file), or "READWRITE’ (the 
process can read and write to the file) when trailing 
blanks are removed. 


The mode specifies the type of access to the file that 
will be made by the original process (the process 
that initially opened the file). 


If you open a file without specifying mode, the 
FORTRAN run-time system always attempts to 
open with a mode value of "(READWRITH’. If the 
open operation fails, the run-time system tries to 
open the file again, first using READ’, then using 
"WRITER’. Note that this is not the same as 


recl 


share 


OPEN 


specifying MODE =’READWRITE’. If you specify 
MODE =’READWRITE’, and the file cannot be 
opened with both read and write access, the 
attempt to open the file fails. The default behavior 
(first trying "READWRITHR’, then READ’, then 
*°WRITE’) is more flexible. Note that the value of 
the STATUS = option does not affect mode. See 
section 4.3.11 for more information on file sharing. 


An integer expression that specifies the length of 
each record in bytes. This argument is required for 
direct-access files and ignored for sequential files. 


A character expression. The acceptable values of 
share (when trailing blanks are removed) are the 
following: 


Value Description 


"COMPAT’ Compatibility mode (the 
default mode). While a file is 
open in compatibility mode, the 
original user (the process that 
opened the file) may open the 
file in compatibility mode any 
number of times. No other user 
may open the file. 


A file that is already open in a 
mode other than compatibility 
mode cannot be opened in com- 
patibility mode. 


*DENYRW’ Deny-read/write mode. While a 
file is open in deny-read/write 
mode, no other process may 
open the file. 


"DENYWR’ Deny-write mode. While a file 
is open in deny-write mode, no 
process may open the file with 
write access. 
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status 


_"DENYRD’ 


"DENYNONE’ 


Deny-read mode. While a file 

is open in deny-read mode, no 
process may open the file with 
read access. ory 


Deny-none mode. While a file 
is open in deny-none mode, 
any process may open the file 
in any mode (except compat- 
ibility mode). 


See Section 4.3.11 for information on file sharing. 


A character expression that evaluates to ’OLD’, 
NEW’, UNKNOWN’, or "SCRATCHY, when trail- 
ing blanks are removed. 


The following list describes the four values of 


status: 
Value 


"OLD’ 


"NEW’ 


Description 


If you specify ?OLD’, the file 
must already exist. If you open a 
file with status equal to OLD’, 
and the file does not already 
exist, an error is generated. See 
Section 4.3.10, “Error and End- 
of-File Handling,” for information 
on handling I/O errors. If you 
open a file with status equal to 
’OLD’, and the file does already 
exist, the file is opened. 


If you open an existing COLD’) 
sequential file and write to it 
without first moving to the end of 
the file, you overwrite the file. 


If you specify NEW’, the file 
must not already exist. If you 
open a file with status equal to | 
"NEW’, and the file does not Se 
already exist, the file is created. 
If you open a file with status 
equal te NEW’, and the file does 


OPEN 


already exist, an error is gener- 
ated. See Section 4.3.10, “Error 
and End-of-File Handling,” for 
information on handling I/O 
errors. 


If you open a file with the option 
STATUS =’NEW’, and subse- 
quently close the file with 
STATUS =’LEEP’, or if the pro- 
gram terminates without doing a 
close operation on the new file, a 
permanent file is created. 


‘SCRATCH’ If no file name is specified when 
you open a file, the value of 
status is "SCRATCH’. Scratch 
files are temporary files. They are 
deleted when they are explicitly 
closed, or when the program ter- 
minates. You can also explicitly 
open a named file with the op- 
tion STATUS =’SCRATCH’. It 
will be deleted at program ter- 
mination. 


"UNKNOWW’ __ If you open a file with the option 
STATUS =’UNKNOWN,, the 
compiler first attempts to open 
the file with status equal to 
"OLD’, then with status equal 
to NEW’. 


The default is SFATUS =’UNKNOWN’. Using the status "UNKNOWN’ 
allows you to avoid the run-time errors associated with opening an 

existing file with STATUS =’NEW’ or opening a nonexistent file with 
STATUS =’OLD’. 

Note that the status values affect only disk files. When a device such as the 
keyboard or the printer is opened as a file, the value of the STATUS= 
option dees not matter. 
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m Remarks 


Opening a file for unit * has no effect, because unit * is permanently con- 
nected to the keyboard and screen. You can, however, use the OPEN state- 
ment to connect the other preconnected units (0, 5, and 6) to any unit. 


If you do not provide an OPEN statement for a file, and the first operation 
using that file is a READ or WRITE operation, the program attempts to 
open a file as if a blank name were specified, as described with the file 
parameter. See Sections 5.3.43, “The READ Statement,” and 5.3.52, “The 
WRITE Statement,” for more information. 


If a parameter of the OPEN statement is an expression that calls a func- 

tion, that function must not cause an I/O statement or the EOF intrinsic 

function to be executed, because the results are unpredictable. 

For more information on choosing values of share and mode when sharing 
files, see Section 4.3.11, “File Sharing.” 


= Examples 


The following example opens a new file: 


C EXAMPLE 1 

C PROMPT USER FOR A FILE NAME. 
CHARACTER*64 FNAME 
WRITE(*,’(A)‘)% Qutput file name?’ 

C READ THE FILE NAME FROM THE KEYBOARD. 
READ(*,’(A)’) FNAME 

C OPEN THE FILE FOR FORMATTED SEQUENTIAL ACCESS AND 

CAS WNT: 7s 

C NOTE THAT THE ACCESS SPECIFIED WAS 

C UNNECESSARY SINCE IT IS THE DEFAULT. 

C FORMATTED IS ALSO THE DEFAULT. 


DPEN(7,FILE=FNAME ,ACCESS="SEQUENTIAL@%, 
+ STATUS="’NEW? ) 


The following example opens an existing file: 


C OPEN AN EXISTING FILE CREATED BY EDITOR 
C CALLED DATA3.TXT AS UNIT 3. 
OPEN(3,FILE=’DATA3.TXT’) 
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5.3.39 The PARAMETER Statement 


= Action 


Gives a constant a symbolic name 


m= Syntax 
PARAMETER (name=expression |,name=expression]...) 
Parameter Description 
name A symbolic name. The name must be of the 


same type as the expression. 


If, for example, you want to use the name 
initial for a real number, you must first 
declare initial asa real number, witha 
type or IMPLICIT statement. 


The largest allowed character constant is 
1999 bytes. 
expression An expression. 


The expression can only include symbolic 
names if the symbolic names are defined in 
a previous PARAMETER statement in the 
current program unit. 


m= Remarks 


A symbolic name cannot be used for a complex number, in format specifica- 
tions, or as a repeat count for an edit descriptor. 
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= Examples 


C EXAMPLE 1 
PARAMETER (NBLOCKS = 10) 


C EXAMPLE 2 
REAL MASS 
PARAMETER (MASS = 47.3, pi=3.14159) 


C EXAMPLE 3 
IMPLICIT REAL (L-M) 
PARAMETER (Loads = 10.0, MASS = 32.2) 


C EXAMPLE 4 
CHARACTER*(*) BIG1 
PARAMETER(BIG1=‘This constant is 35 characters long’) 
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PAUSE 
5.3.40 The PAUSE Statement 
@ Action 
Temporarily suspends program execution and allows you to execute operat- 


ing system commands 


H Syntax 


PAUSE [prompi] 


Parameter Description 
prompt | Kither a character constant or a number from 
0 to 99,999. 


% Remarks 

The default for prompt is the following: 

‘Please enter a blank line (to continue) or a system command.‘ 
The PAUSE statement suspends execution of the program. If a prompt is 
given, the prompt or number is displayed on the screen when the PAUSE 


statement is reached. The following list indicates possible responses to the 
prompt, and their results: 


If: Then: 

The user enters a The command is executed and control is 
command returned to the program. 

The user enters a Control is returned to the program. 

blank line 

The user enters the The user can carry out a sequence of com- 
word COMMAND mands. To return control to the program, 
(uppercase or enter KAIT (uppercase or lowercase). 
lowercase) 
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= Example 


C EXAMPLE OF A PAUSE STATEMENT 
SUBROUTINE setdrive (drive) 
PAUSE ‘’Please select default drive.’ 
END 
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PRINT 
5.3.41 The PRINT Statement 


= Action 


Specifies output to the screen 


m Syntax 
PRINT formatspec Liolist] 
Parameter ~ Description 


formatspec A format specifier. 


For information on format specifiers, see 
Section 4.8, “Formatted I/O.” 


iolist An I/O list specifying the data to be 
transferred. For information on I/O lists, 
see Section 4.3.8. 
= Remarks 
The PRINT statement writes data to unit * 
If a parameter of the PRINT statement is an expression that cails a func- 
tion, that function must not cause an I/O statement or the EOF intrinsic 
function to be executed, because the results are unpredictable. 


uw Example 


C The following two statements are equivalent: 
PRINT ’(A11)‘,’Abbottsford’ 
WRITE(*,’(A11)°%)’Abbottsford’ 
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5.3.42 The PROGRAM Statement 


@ Action 


Identifies the program unit as a main program and gives it a name 


@ Syntax 

PROGRAM programname 
Parameter 
programname 


# Remarks 


Description 


The name you have given to your main pro- 
gram. 


The program name is a global name. There- 
fore, it cannot be the same as that of another 
external procedure or common block. (It is also 
a local name to the main program and must 
not conflict with any local name in the main 
program.) The PROGRAM statement may 
only appear as the first statement of a main 
program. 


The main program is always assigned the default name of _main, in addi- 
tion to any name specified by the PROGRAM statement. 


Hn 6Example 


PROGRAM GAUSS 


REAL COEF (10,10), CONST (10) 


END 
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5.3.43 The READ Statement 


gw Action 


Transfers data from the file associated with unitspec to the items in the 
tolist, unless the end-of-file is reached or an error occurs 


# Syntax 


READ {formatspec, | 
(JUNIT = Junitspec 
LIF MT = |formatspec] 
[END =endlabel] 
l,ERR=errlabel] 

[ IOSTAT = iocheck] 
[, REC = rec])} 


tolist 


If the optional strings UNIT= and FMT= are omitted, then the parame- 
ters unitspec and formatspec must be the first and second parameters, 
respectively. The other parameters can appear in any order. 


Parameter Description 


formatspec A format specifier. 


The formatspec argument is required for a for- 
matted read operation, and must not appear 
for an unformatted read operation. If a READ 
statement omits the UNIT=, END=, 
ERR=, and REC= options, and specifies 
only a formatspec and jolist, that statement 
reads from the asterisk unit (the keyboard). 
See Section 4.3.7 for information on format 
specifiers. 


unitspec A unit specifier. 


For an internal READ statement, unitspec 
is a character substring, character variable, 
character array element, character array, or 
noncharacter array. For an external read 
operation, unitspec is an external unit. 
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endlabel 


errlabel 


tocheck 


rec 


If the file at unitspec has not been opened by 
an OPEN statement, an implicit open opera- 
tion, equivalent to the following statement, is 
performed: 


OPEN (unitspec,FILE=% %, 
+ STATUS=’OLD’, 
+ ACCESS=’*SEQUENTIAL?’, 
+ FORM=form ) 


For the implicit open operation, form is 
FORMATTED’ for a formatted read opera- 
tion or "UNFORMATTED’ for an unformat- 
ted read operation. See Section 4.3.2, “Units,” 
for information on unit specifiers. 


The label of a statement in the same program 
unit as the READ statement. 


If endlabel is omitted, reading past the end- 
of-file record results in a run-time error. If 
endlabel is present, encountering the end-of- 
file record transfers control to the executable 
statement at endlabel. For more information 
on error handling, see Section 4.3.10, “Error 
and End-of-File Handling.” 


The label of an executable statement in the 
same program unit as this statement. 


If errlabel is specified, I/O errors transfer con- 
trol to the statement at erriabel. If errlabel is 
omitted, I/O errors cause run-time errors. The 
effects of I/O errors are determined by the 
presence of iocheck. For more information on 
error handling, see Section 4.3.10, “Error and 
End-of-File Handling.” 


An integer variable or integer array element 
that becomes defined as zero if no error is 
encountered, or as a positive integer if an 
error is encountered. For more information 
on error handling, see Section 4.3.10, “Error 
and End-of-File Handling.” 


A positive integer expression, called the record 
number. It is specified for direct-access files 
only; if rec is given for a sequential-access or 
an internal file, an error results. 


READ 


The file is positioned to record number rec 
before transfer of data begins (the first record 
in the file has a record number of 1). The 
default for rec is the current position in the 
file. 


tolist The entities into which values are transferred 
from the file. For information on I/O lists, see 
Section 4.3.8. 


=m Remarks 


If the file was opened with MODE =’READWRITE’ (the default), you can 
alternately read and write to the same file without reopening it each time. 
You will usually need to rewind or backspace in a sequential file after 
writing. 


Reading at or beyond the end-of-file record may cause an error. You cannot 
read unwritten records from a direct file. 


Note that the data read from a binary file must correspond in size to the 
data written to a binary file. 


If a parameter of the READ statement is an expression that calls a func- 
tion, that function must not cause an I/O statement or the EOF intrinsic 
function to be executed, because the results are unpredictable. 


= Example 


SET UP A TWO DIMENSIGNAL ARRAY. 
DIMENSION 1A(10,20) 
READ IN THE BOUNDS FOR THE ARRAY. 
THESE BOUNDS SHOULD BE LESS THAN OR 
EQUAL TO 10 AND 20 RESPECTIVELY. 
THEN READ IN THE ARRAY IN NESTED 
IMPLIED-DO LISTS WITH INPUT FORMAT OF 
8 COLUMNS OF WIDTH S EACH. 
READ (3,990)IL,JL,((IA(1,J5),J=1,J5L), 
+ 2=1,70L) 
990 FORMAT(21S,/,(815)) 


OOIdDGNIND 7) 
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5.3.44 The REAL Statement 


= Action 


Specifies the type of user-defined names 


mw Syntax 


REAL| * bytes] vnamel[atirs]]ll * length (dim) | / values / | 
[,vname[[atirs]]lll * length] (dim) ]I / values / J] 


The order of the length and dim parameters can be reversed, 


Parameter 


bytes 


vraime 


attrs 


length 


dim 
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Description 


Must be 4 or 8. The bytes parameter specifies 

the length, in bytes, of the items specified by 

the REAL statement. This value can be over- 
ridden by the length parameter. 


The symbolic name of a constant, variable, 
array, external function, statement function, 
or intrinsic function; or, a function subpro- 
gram or an array declarator. 


The vname parameter cannot be the name of a 
subroutine or main program. 


A list of attributes separated by commas. The 
attrs describe uname. These attributes can be 
used with uname: ALIAS, C, EXTERN, FAR, 
HUGE, NEAR, PASCAL, REFERENCE, 
VALUE. 


Must be 4 or 8. The length parameter assigns 
the specified length to vname. If length is 
specified, it overrides the length attribute 
specified by bytes. 


A dimension declarator. You can only specify 
dim if vname is an array. If dim is specified, 
the REAL statement declares the array 
uname. 


REAL 


values A list of constants and repeated constants, 
separated by commas. A repeated constant is 
written in the form n*constant, where n is 
a positive-nonzero-integer constant, and is 
equivalent to the constant constant repeated n 
times. The /values/ option, if specified, ini- 
tializes uname. The following statement, for 
example, declares that num is of type REAL, 
and sets num equal to 0. 0: 


REAL num /0.0/ 


= Remarks 

A REAL statement confirms or overrides the implicit type of uname. The 
name uname is defined for the entire program unit, and it cannot be defined 
by any other type statement in that program unit. 


REAL statements must precede all executable statements. 


m Examples 


C EXAMPLES OF REAL STATEMENTS 
REAL GOOF ,IABS 
REAL*4 WX1, WX3*4, WXS5, WxX6*4 
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5.3.45 The RETURN Statement 


= Action 


Returns control to the calling program unit 


m Syntax 
RETURN [ordinal] 
Parameter Description 


ordinal Defines an ordinal position for an alternate- 
return label in the formal argument list for 
the subroutine. See Section 5.3.5, “The CALL 
Statement,” for information on alternate 
returns. 


= Remarks 
RETURN can only appear in a function or subroutine. 


Execution of a RETURN statement terminates execution of the enclosing 
subroutine or function. If the RETURN statement is in a function, the 
function’s value is equal to the current value of the function return vari- 
able. Execution of an END statement in a function or subroutine is 
equivalent to execution of a RETURN statement. 


If the actual arguments of the CALL statement contain alternate-return 
specifiers, the RETURN statement can return control to a specific 
statement. 


A RETURN statement in the main program is treated as a STOP state- 


ment with no message parameter (see Section 5.3.49, “The STOP State- 
ment,” for more information). 
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= Examples 


EXAMPLE OF RETURN STATEMENT 
THIS SUBROUTINE LOOPS UNTIL 
YO. TYPE ye 
SUBROUTINE LOOP 
CHARACTER IN 


Olan 


C 
10 READ({*,’(A1)%) IN 
IF (IN .EQ. “’Y¥%) RETURN 
GOTO 10 
C Return implied by the following statement 
END 


The following program fragment is an example of the alternate-return 
feature: 


01 CALL AC(1,*10,J,*20,*30) 


WRITE (*,*) ‘normal return’ 
GOTO 40 
10 WRITE (*,%*) ’I=107 
GOTO 40 
20 WRITE (*,*) ‘’1=207% 
GOTO 40 


30 WRITE (*,%*) ’1=30% 
40 CONTINUE 


SUBROUTINE AC (1,*,J,*,*) 
IF (1.EQ.10) RETURN 1 

IF (1.£Q@.20) RETURN 2 

IF (1.EQ@.30) RETURN 3 
RETURN 


In this example of a subroutine with alternate-return labels following 
the RETURN statement, RETURN 1 specifies a return to the list’s first 
alternate-return label, which is a symbol for the actual argument * 10 
in the CALL statement. RETURN 2 specifies a return to the second 
alternate-return label, and so on. 
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5.3.46 The REWIND Statement 


= Action 


Repositions a file to its first record 


= Syntax 


REWIND {unitspec | 
(TUNIT = Jlunitspec 
[,ERR = errlabel] 
[,LOSTAT = iocheck])} 


Parameter Description 


unitspec An external unit specifier (see Section 4.3.2, 
“Units,” for information about unit specifiers). 
If unitspec has not been opened, the REWIND 
statement has no effect. 


errlabel The label of an executable statement in the 
same program unit as the current statement. 
If errlabel is specified, I/O errors transfer con- 
trol to the statement at errlabel. If errlabel is 
omitted, I/O errors cause run-time errors. The 
effects of I/O errors are determined by the 
presence of iocheck. For more information on 
error handling, see Section 4.3.10, “Error and 
End-of-File Handling.” 


tocheck An integer variable or integer array element 
7 that becomes defined as zero if no I/O error 
is encountered, or as a positive integer if an 
error is encountered. For more information on 
error handling, see Section 4.3.10, “Error and 
End-of-File Handling.” 
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# Remarks 


If a parameter of the REWIND statement is an expression that calls a 
function, that function must not cause an I/O statement or the EOF intrin- 
sic function to be executed, because the results are unpredictable. 


= Example 


INTEGER A(80) 
WRITE (7,%(8011)%) A 
REWIND 7 


READ (7, “(8011)%) A 
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5.3.47 The SAVE Seisment 


= Action 


Causes variables to retain their values between invocations of the pro- 
cedure in which they are defined 


= Syntax 
SAVE [names] 
Parameter 


names 


= Remarks 


Description 


One or more names of common blocks (en- 
closed in slashes), variables, or arrays. If 
more than one name is specified, they must 
be separated by commas. 


After being saved, the named variables and all 
variables in the named common block have 
defined values if the current procedure is sub- 
sequently reentered. The default for names is 
the names of all allowable items in the cur- 
rent program unit. 


The SAVE statement does not allow the following: 


Procedure names 


Redundant appearances of an item 


Formal argument names 


Names of entities in a common block 


A common block that is saved in one subprogram of an executable program 
must be saved in every subprogram that contains that common block in the 


executable program. 
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Note 


Microsoft FORTRAN saves all variables by default. The SAVE state- 
ment is provided so that you can make your code portable. 


a Example 


C EXAMPLE OF SAVE STATEMENT 
SAVE /MYCOM/, MYVAR 
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5.3.48 The Statement-Function Statement 


= Action 


Defines a function in one statement 


m Syntax 
fname (formals ]) = expression 
Parameter Description 


fname The name of the statement function. 


The name fname is local to the enclosing pro- 
gram unit and must not be used otherwise, 
except as the name of a common block or as 
the name of a formal argument to another 
statement function. If fname is used as a for- 
mal argument to another statement function, 
fname must have the same data type every 
time it is used. | 


formals A list of formal-argument names. If there 
is more than one name, the names must be 
separated by commas. 


The list of formal-argument names defines the 
number and type of arguments to the state- 
ment function. The scope of formal-argument 
names is the statement function. Therefore, 
formal-argument names can be reused as 
other user-defined names in the rest of the 
program unit enclosing the statement-function 
definition. 


If formal is the same as another local name, 
then a reference to formal within the state- 
ment function always refers to the formal 
argument, never to the other local name. 
That local variable must be the same type 
as formal. 
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expression Any expression. 


Within the expression, references to variables, 
formal arguments, other functions, array ele- 
ments, and constants are permitted. State- 
ment-function references, however, must refer 
to statement functions defined prior to the 
statement function in which they appear. 
Statement functions cannot be called recur- 
sively, either directly or indirectly. 


= Remarks 


The statement-function statement defines the meaning of the statement 
function fname. The statement function fname can then be executed by a 
function reference in an expression. 


The type of expression and the type of fname must be compatible in the 
same way that expression and variable must be compatible in assignment 
statements. For an explanation of assignment compatibility, see Section 
2.7.1.2, “Type Conversion of Arithmetic Operands.” The expression is con- 
verted to the same data type as fname. The actual arguments to the state- 
ment function are converted to the same type as the formal arguments. 


A statement function can only be referenced in the program unit in which 
it is defined. The name of a statement function cannot appear in any speci- 
fication statement, except in a type statement (which may not define that 
name as an array) and in a COMMON statement (as the name of a com- 
mon block). 


@ Example 


C EXAMPLE OF STATEMENT FUNCTION STATEMENT 
DIMENSION X(10) 
ADD(A, B) =A +B 


C 
DO 1, I=1, 10 
X(I) = ADD(Y, 2) 
1 CONTINUE 
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5.3.49 The STOP Statement 


= Action 


Terminates the program: 


= Syntax 


STOP [message] 


Parameter Description 
message Hither a character constant or an integer from 
0 to 99,999. 


m Remarks 


If no message is specified, the following message is displayed on the screen 
when the program terminates: 


STOP - Program terminated. 


If a character constant is specified for message, that character constant is 
displayed on the screen when the program terminates. If a number is speci- 
fied for message, then: 


1. The words Return code, followed by the number, are printed on 
the screen when the program terminates. 


For example, see the following statement: 
STOP 0400 
The statement above produces the following output: 


Return code 0400 


2. The program returns the least-significant byte of that integer value 
(a value from 0 to 255) to the operating system. 


If a number is not specified for message, the program returns 0 to the 
operating system. 
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m= Example 


C EXAMPLE OF STOP STATEMENT 
IF (TERROR .EQ. 0) GOTO 200 
STOP “ERROR DETECTED’ 
200 CONTINUE 
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5.3.50 The SUBROUTINE Statement 


= Action 


Identifies a program unit as a subroutine, gives it a name, and identifies 
the formal arguments to that subroutine 


w Syntax 


SUBROUTINE suwodr {lsatirs|][(formal (Latirs]]Lformalflatirs}]]...)] 


Parameter 


subr 


sattrs 


formal 


attrs 


= Remarks 


Description 


The user-defined, global, external name of the 
subroutine. 


A list of attributes, separated by commas. The 
sattrs describe subr. The following attributes 
can be used with subr: ALIAS, C, FAR, 
NEAR, PASCAL, VARYING. 


The user-defined name of a formal argument. 


The formal argument may include the alter- 
nate return label (*). 


For an explanation of alternate return 
specifiers, see Section 5.3.5, “The CALL 
Statement.” 


A list of attributes separated by commas. The 
attrs describe formal. The following attributes 
can be used with formal: FAR, HUGE, 
NEAR, REFERENCE, VALUE. 


A subroutine begins with a SUBROUTINE statement and ends with 

the next END statement. It can contain any kind of statement except a 
PROGRAM statement, BLOCK DATA statement, SUBROUTINE state- 
ment, FUNCTION statement, or INTERFACE statement. 
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The list of argument names defines the number and—with any subse- 
quent IMPLICIT, EXTERNAL, type, or DIMENSION statements—the 
type of arguments to that subroutine. Argument names cannot appear in 
COMMON, DATA, EQUIVALENCE, or INTRINSIC statements. 


In a CALL statement, actual arguments that reference a subroutine must 
agree with corresponding formal arguments in the SUBROUTINE state- 

ment, in order, in number (except when the C and VARYING attributes 

are specified), and in type or kind. 


The compiler will check for correspondence if the formal arguments are 
known. See Section 5.3.5, “The CALL Statement,” for information on check- 
ing arguments for correspondence. 


m= Example 


SUBROUTINE GETNUM (NUM,UNIT) 
INTEGER NUM, UNIT 

10 READ (UNIT,’(110)’%, ERR=10) NUM 
RETURN 
END 
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5.3.51 The Type Statements 


See individual listings in this chapter for the CHARACTER, COMPLEX, 
DOUBLE PRECISION, INTEGER, LOGICAL, and REAL statements. 
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WRITE 
5.3.52 The WRITE Statement 


= Action 


Transfers data from the iolist items to the file associated with the 
specified unit 


= Syntax 


WRITE (UNIT = Junitspec 
LLFMT = lformatspec] 

.,E RR =errlabel] 

[ IOSTAT =itocheck] 
[,REC = rec]) 

lolist 


The parameters may appear in any order, except as described for unitspec 
and formatspec below. 


Parameter Description 


unitspec A unit specifier. 


If the optional string UNIT= is omitted, 
unitspec must be the first parameter. See Sec- 
tion 4.3.2, “Units,” for information about unit 
specifiers. 


For an internal write operation, uniispec must 
be a character substring, character variable, 
character array element, character array, or 
noncharacter array. For an external write 
operation, unitspec must be an external unit. 


If the file associated with unitspec has not 
been opened by an OPEN statement, an 
implicit open operation, equivalent to the 
following statement, is performed: 


OPEN (unitspec, FILE=’ ”, 
+ STATUS=’UNKNOWN %, 

+ ACCESS="’SEQUENTIAL’ , 
+ FORM=form ) 
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formatspec 


errlabel 


tocheck 


rec 


tolist 


Here, form is FORMATTED?’ for a formatted 
WRITE statement and "UNFORMATTED’ 
for an unformatted WRITE statement. 


A format specifier. 


If the optional string FMT = is omitted, then 
formatspec must be the second parameter. This 
argument must not appear for an unformatted 
write operation; it is required for a formatted 
write operation. See Section 4.3.7 for informa- 
tion on format specifiers. 


The label of an executable statement in the 
same program unit as the current statement. 


If errlabel is specified, I/O errors transfer con- 


- trol to the statement at errlabel. If errlabel is 


omitted, I/O errors cause run-time errors. The 
effects of I/O errors are determined by the 
presence of tocheck. For more information on 
error handling, see Section 4.3.10, “Error and 
End-of-File Handling.” 


An integer variable or integer array element 
that becomes defined as zero if no error 1s 
encountered, or as a positive integer if an 
error is encountered. For more information 
on error handling, see Section 4.3.10, “Error 
and End-of-File Handling.” 


A positive integer expression, called a record 
number, specified for direct-access and binary 
files only (otherwise, an error results). 


The argument rec specifies the number of the 
record to be written. The first record in the 
file is record number 1. The default for rec is 
the current position in the file. 


A list of entities whose values are transferred 
by the WRITE statement. 


For information on I/O lists, see Section 4.3.8. 


WRITE 


= Remarks 


If the file was opened with MODE =’READWRITE’ (the default), you can 
alternately read and write to the same file without reopening it each time. 
You will usually need to rewind or backspace in a sequential file after 
writing. 


Reading at or beyond the end-of-file record may cause an error. You cannot 
read unwritten records from a direct file. 


If you write to a sequential file, you delete any records that existed beyond 
the newly written record. Note that for sequential files, you are always 
effectively at the end of the file following a write operation, and you must 
backspace or rewind before the next read operation. Also, of course, the 
operating system can deny access to a file. 


If a parameter of the WRITE statement is an expression that calls a func- 
tion, that function must not cause an I/O statement or the EOF intrinsic 
function to be executed, because the results are unpredictable. 


= Example 


C Generate a table of square and cube roots 
C of the whole numbers from 1-100 
WRITE(*,10)(1,SQRT(FLOAT(I)),FLOAT(I)**(1./3.),1=1,100) 
10 FORMAT(1I5,F8.4,F8.5) 
END 
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Metacommands 


6.1 Introduction 


The first part of this chapter lists the metacommands available in Microsoft 
FORTRAN. The second part of the chapter contains a directory of FOR- 
TRAN metacommands, listed alphabetically. 


Metacommands give the Microsoft FORTRAN Compiler information on how 
to process source code. The Microsoft FORTRAN Compiler User’s Guide con- 
tains additional information on using metacommands. Note that command- 
line options, as described in the Microsoft FORTRAN Compiler User’s 
Guide, can be used for the same purposes as many of the metacommands. 


Table 6.1 summarizes the Microsoft FORTRAN metacommands. Note that 


many of the metacommands can be turned on or off by specifying the 
metacommand or its opposite, such as $DECLARE or $NODECLARE. 
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Table 6.1 


Metacommands 


Metacommand 


Instructions to Compiler 


Default 


SDEBUGI:string] 


$DECLARE 


$DO66 


$FLOATCALLS 


$FREEFORM 


SINCLUDEY filename’ 


SLARGE|[:name [,name]] 


$LINESIZE:n 
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Turns on run-time checking 
for integer arithmetic 
operations, assigned GOTO 
values, subscript bounds, and 
substrings. $NODEBUG turns 
off checking. $DEBUG does 
not trigger or suppress 


floating-point exceptions. 


$DEBUG can also be used for 
conditional compilation. 


Generates warning messages 
for undeclared variables. 
SNODECLARE turns off 
these messages. 


Uses FORTRAN 66 semantics 
for DO statements. 


Generates calls to subroutines 
in the emulator library. 
$NOFLOATCALLS causes 
the compiler to generate in- 
line interrupt instructions. 


Uses free-form format for 
source code. $NOFREEFORM 
uses fixed format. 


Proceeds as if filename were 
inserted at this point in the 
current source file. 


Addresses the named array 
outside of the DGROUP 
segment. $NOTLARGE 
disables $LARGE for the 
named array. If name is 
omitted, these metacommands 
affect all arrays. 


Makes subsequent pages 
of listing n columns wide. 
Minimum n equals 40; 
maximum n equals 132. 


$NODEBUG 


$NODECLARE 


$DO66 not set 


S$NOFLOATCALLS 


S$NOFREEFORM 


None 


None 


$LINESIZE:80 


Table 6.1 (continued) 


Metacommand 


$LIST 


$MESSAGE:string 


$PAGE 
$PAGESIZE:n 


SSTORAGE:n 


$STRICT 


$SUBTITLE:subiitle 


$STITLE: title 


$TRUNCATE 


Instructions to Compiler 


Begins generation of listing 
information that is sent to 
the listing file. $NOLIST 
suppresses generation of 
listing information. 


Sends a character string to the 
standard output device. 


Starts new page of listing. 


Makes subsequent pages of 
listing n lines long. Minimum 
n equals 15. 


Allocates n bytes of memory 
(2 or 4) to all LOGICAL or 
INTEGER variables. 
Disables Microsoft FORTRAN 
features not in 1977 full- 


language standard. 
$NOTSTRICT enables them. 


Uses subtitle subtitle for 
subsequent pages of listing. 


Uses title title for subsequent 
pages of listing. 


Truncates variables to six 
characters. $NOTRUNCATE 
turns off truncation. 


Metacommands 


Default 


$LIST 


None 


None 
$PAGESIZE:63 


$STORAGE:4 


$NOTSTRICT 


$SUBTITLE:”C 


$TITLE:”C 


$TRUNCATE 


Any line with a $ character in column | is interpreted as a metacommand. 
A metacommand and its arguments (if any) must fit on a single source line; 
continuation lines are not permitted. 
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6.2 Metacommand Directory 


The remainder of this chapter is an alphabetical directory of available 
Microsoft FORTRAN metacommands. Each metacommand is described 
using the following format: 


Heading Information 

@ Action Summary of what the metacommand does. 

a Syntax Correct syntax for the metacommand, and 
description of the metacommand’s parameters. 

# Remarks Use of the metacommand. 

gw Example Sample programs or program segments that 


illustrate the use of the metacommand. This 
section does not appear with every reference 
entry. 
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6.2.1 The $DEBUG and $NODEBUG Metacommands 


@ Action 


$DEBUG directs the compiler to perform additional testing and expanded 
error handling. $DEBUG can also be used for conditional compilation. 
$NODEBUG suppresses the additional testing and expanded error 
handling. 


@ Syntax 


$[NOJDEBUGI:string] 


&# Remarks 

The default is S$NODEBUG. 

These metacommands can appear anywhere in a program. 
When $DEBUG is set, the compiler does the following: 


@ Tests integer arithmetic for overflow. 


Tests assigned GOTO values against the optional label list in an 
assigned GOTO statement. 


@ Provides the run-time error-handling system with file names and 
line numbers. If any run-time errors occur, the file name and line 
number are displayed on the console. 


@® Checks range of substrings. 


Checks assignment range. This catches errors when larger integer 
variables are assigned to smaller integer variables, such as assign- 
ing an INTEGER #4 variable to an INTEGER «2 variable. If 
$DEBUG is not set, the variable is truncated, no error is reported, 
and the program returns unpredictable results. In the case of real 
numbers, an error is always reported. 
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Note 


$DEBUG does not trigger or suppress floating-point exception han- 
dling. Microsoft FORTRAN conforms to the proposed JEEE standard for 
exception handling for the five following conditions: invalid operation, 
division by zero, overflow, underflow, and precision. See the Microsoft 
FORTRAN Compiler User’s Guide for information on exception han- 
dling on your system. 


This metacommand should be placed into each source file to be compiled. 


If the optional string is specified, the characters in string specify that lines 
that have those characters in column 1 are to be compiled into the program. 
Case is not significant. Note that the letter C always indicates a comment 
line; therefore, if string contains a C, the C is ignored. If more than one 
$DEBUG:string metacommand is specified, each string overrides the previ- 
ous string. Note that $DEBUG can be used for conditional compilation 

only if the $FREEFORM metacommand has not been specified. If the 
SDEBUG:string metacommand is specified after $F REEFORM, a warn- 
ing message is produced. 


#2 Example 


C If the $FREEFORM metacommand has been specified, the 
C next line produces an error message. 
$DEBUG: “ABCD ’ 
 y=1 
T=2 
[=I+] 
[=] *] 
C This is always a comment. I equals ¢c, 
C becausé only statements A and B are executed. 


NOM Lp 
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6.2.2. The $DECLARE and 
SNODECLARE Metacommands 


@ Action 


$DECLARE generates warnings for undeclared variables. SNODECLARE 
does not. | 


@ Syntax 


$l NOJDECLARE 


@ Remarks 


The default is $NODECLARE. When $DECLARE is set, a warning mes- 
sage is generated at the first use of any variable that has not been declared 
in a specification statement. 


= Kxample 


$DECLARE . 

C Since the variable z never appears ina type 

C statement, its use in the statement labeled 100 
C produces an error. 
C 


REAL x,y 
= 1.0 
C The following statement produces an error: 
100 REV Z 
END 
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6.2.3 The $DO66 Metacommand 


@ Action 


$DO66 causes DO statements to conform to FORTRAN 66 semantics. 


@ Syntax 


$DO66 


# Remarks 
You must obey the following rules when using $DO66: 


@ $DO66 must precede the first declaration or executable statement 
of the source file in which it occurs. 


@ $DO66 may only be preceded by a comment line or another 
metacommand. 


@ $DO66 may only appear once in the source file. 
When $DO066 is on, the following FORTRAN 66 semantics are used: 


@ All DO statements are executed at least once. 


@ Extended range is permitted; that is, control may transfer into the 
syntactic body of a DO statement. The range of the DO statement is 
thereby extended to include, logically, any statement that may be 
executed between a DO statement and its terminal statement. How- 
ever, the transfer of control into the range of a DO statement prior 
to the execution of the DO statement or following the final execu- 
tion of its terminal statement is invalid. 


Note how this differs from the default (FORTRAN 77) semantics, which are 
as follows: 


@ DO statements can be executed zero times, if the value of the 
initial control variable exceeds that of the final control variable (or 
the corresponding condition for a DO statement with negative 
increment). 
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® Extended range is invalid; that is, control may not transfer into the 
syntactic body of a DO statement. (Both standards do permit 
transfer of control out of the body of a DO statement.) 
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6.2.4 The SFLOATCALLS and 
SNOFLOATCALLS Metacommands 


@ Action 

SFLOATCALLS causes floating-point operations to be processed by calls to 
library subroutines. SNOFLOATCALLS causes floating-point operations to 
be processed by compiler-generated, in-line coprocessor instructions. 


Syntax 


$[ NOJFLOATCALLS 


Remarks 
SNOFLOATCALLS is the default. 


See the Microsoft FORTRAN Compiler User’s Guide for a discussion of the 
advantages and disadvantages of each method. 


294 


# Kxample 


$ 


Mom > 


FLOATCALLS 
REAL X, 
WRITE ( 
100 FORMAT ( 
READ (* 
WRITE { 
200 FORMAT 
END 
REAL FU 
The function 
series. Succe 
than eps. 
Library calls 
instructions, 
machines with 
REAL 
7 = 
Y = 
I = 
NEXT 
100 IF { 
ENDI 
SINE 
RE TU 
END 


$FLOATCALLS, $NOFLOATCALLS 


SINE 

*,100) 

1X,ENTER X: °) 

,'(F10.5)%) X 

*,200) X, SINE(X, .00001) 

(1X, “THE SINE OF *, F10.5, *% = ’, F9.6) 


NCTIGN SINE(X, EPS) 
calculates the sine of X using a power 
ssive terms are calculated until less 


are generated instead of in-line 
allowing this routine to be run on 
or without a numeric coprocessor. 
Xx, Y, 2, NEXT, I, EPS 
AMOD(X, 
VA 


4.0 


6.2831653) 


-Z2*2*Z2 / 6.0 
ABS(NEXT) .GE. 
Y Y + NEXT 
NEXT -NEXT#2Z*2 / 
I] = I + 2.0 
GOTO 100 
F 


varie 


RN 


EPS) THEN 


Ce Clete] 


Y 
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6.2.5 The SFREEFORM and 
SNOFREEFORM Metacommands 


@ Action 


SNOFREEFORM specifies that a source file is in the standard FORTRAN 
format. $F REEFORM specifies that a source file is in the free-form format. 


Syntax 


$[NO]FREEFORM 


& Remarks 


If this metacommand appears, it must precede any FORTRAN statements. 
The default, S$NOFREEFORM, tells the compiler that your source code is 
in the standard FORTRAN format: labels are in columns 1—5, continuation 
characters are in column 6, statements are in columns 7 — 80, and charac- 
ters beyond column 80 are ignored. The standard FORTRAN format is 
described in Section 3.2, “Lines.” $F REEFORM tells the compiler that 
your source code is in the following format: 


@ <A double quotation mark (*') in column 1 indicates a comment line. 
® Initial lines may start in any column. 


@ The first nonblank character of an initial line may be a digit: the 
first digit in a statement number. The statement number may be 
from one to five decimal digits; blanks and leading zeros are 
ignored. Blanks are not required to separate the statement number 
from the first character of the statement. 


@ Ifthe last nonblank character of a line is a minus sign, it is dis- 
carded and the next line is taken to be a continuation line. The con- 
tinuation line may start in any column. 


@ Alphabetic characters and asterisks are not allowed as comment 
markers in column 1. 
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&@ EKxample 


$FREEF ORM 


The sine of the entered number X is calculated using a 
"power series. Successive terms are calculated until 
Mone is less than EPSILON. 


REAL X, EPSILON, 2, SINE, NEXT 
EPSILON = 0.0001 


WRITE (*,1) 
1 FORMAT(1X,’ENTER X: “) 
READ (*,’(F10.5)") X 
2 = AMOD(X, 6.2831853) 
SINE = Z 
I = 4,0 
NEXT = -Z*Z*Z / 6.0 
2 IF (ABS(NEXT) .GE. EPSILON) THEN 
SINE = SINE + NEXT 
NEXT = -NEXT#Z2#Z2 / ({1*(14+1.0)) 
[= 22. | 
GOTO 2 
ENDIF 
WRITE (*, 3) X, SINE 
3 FORMAT (1X, ‘THE SINE OF “, F10.S. - 
‘= "> F12.10) 
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6.2.6 The SINCLUDE Metacommand 


Ss Action 


$INCLUDE directs the compiler to proceed as though the $INCLUDE 
metacommand were replaced by the file specified by the metacommand. 


SINCLUDE:? filename’ 


Remarks 


The argument filename must be a valid file specification for your operating 
system. 


At the end of the included file, the compiler resumes processing the original 
source file at the line following the $INCLUDE metacommand. 


Included files can also contain $INCLUDE metacommands; this is called 
“nesting” included files. The compiler allows you to nest up to ten 
SINCLUDE metacommands; your operating system may impose further 
restrictions. 


The $INCLUDE metacommand is particularly useful for guaranteeing that 
several modules use the same declaration for a common block, and for using 
the INTERFACE statement to ensure consistency in subroutine and func- 
tion argument lists. 


2 EKxample 


This program implements a stack by declaring the common stack data in an 
include file. The contents of the file STKVARS.FOR (shown below the fol- 
lowing program) are substituted into the source code for every SINCLUDE 
metacommand. This guarantees that all references to common storage for 
stack variables are consistent. 
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$INCLUDE 


integer il 
real x 


$INCLUDE: ‘’stkvars.for’ 


C Read in five real numbers. 
DG 100 1..= 1-5 
READ(*,’(f10.5)’%) x 
CALL push(x) 
100 CONTINUE 


C Write the numbers out in reverse order. 
WRITE (*,*) 
DO 200 i = 
CALL pop 
(*, 
200 CONTINUE 
END 


SUBROUTINE push(x) 
C Subroutine pushes an element X onto the top of the 
C stack. 


REAL x 
$INCLUDE: ’stkvars.for’ 


top = topt+t 
IF(top .GT. stacksize) STOP “Stack overflow’ 
stack(top) = x 
RETURN 
END 


SUBROUTINE pop(x) 
C Subroutine pops an element from the top of the stack 
C into xX. 


REAL x 
$INCLUDE: ‘stkvars.for’ 


IF (top .LE. 0) STOP “Stack underflow’ 
x = stack(top) 
top = top~-1 
RETURN 
END 
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$SINCLUDE 


The following is the file STKVARS.FOR: 


This file contains the declaration of the common 
block for a stack implementation. Because this file 
contains an assignment statement, it must be included 
only after all other specification statements in 

each program unit. 


MMM 9 & 


REAL stack (500) 
INTEGER top, stacksize 


COMMON  /stackbl/ stack, top 


stacksize = 500 
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6.2.7 The S$LARGE and $NOTLARGE Metacommands 


& Action 


S$LARGE specifies that an actual argument can span more than one seg- 
ment (64K). $NOTLARGE specifies that an actual argument cannot span 
more than one segment (64K). 


& Syntax 
S[NOTILARGET|:names] 
Parameter Value 


names One or more names of array variables or 
formal array arguments. If more than one 
name is specified, they must be separated 
by commas. 


When names is specified in the $LARGE 
metacommand, it indicates that the array or 
formal array argument specified can span 
more than one segment (that is, it is addressed 
outside of DGROUP). When names is speci- 
fied in the $NOTLARGE metacommand, it 
excludes the specified items from the effects 

of a $LARGE metacommand used without 
arguments. 


= Remarks 


SNOTLARGE is the default. 


If the optional names parameter is specified, the metacommand must occur 
in the declarative section of a subprogram. 


If names is omitted, the metacommand affects all arrays in all subsequent 
subprograms in the source file until the $NOTLARGE metacommand is 
specified without any arguments. This form may occur anywhere except in 
the executable section of a subprogram. 
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Arrays with explicit dimensions indicating that they are bigger than 64K 
are automatically allocated to multiple segments outside of the default data 
segment. You do not need to specify $LARGE for these arrays. 


Only one $LAIRGE or one $NOTLARGE metacommand without argu- 
ments can occur in a single program unit. The following code fragment, 
for example, is illegal: 


C This: is illegal: 
$LARGE 

SUBROUTINE mysub 
$NOTLARGE 

a=1.0 


Note that use of the $LARGE metacommand on the entire program 
corresponds to the “huge” memory model. You can also use the HUGE 
attribute to specify that an actual argument can span more than one 
segment. 
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$LINESIZE 
6.2.8 The $LINESIZE Metacommand 


@ Action 


SLINESIZE formats subsequent pages of the listing to a width of n 
columns. 


& Syntax 
$LINESIZE:n 
Parameter Value 


n A positive integer between 80 and 132. 
The default for n is 80. 


& Example 


$LINESIZE:100 


C The compiler listing of this program will be one 
C hundred columns wide. 


REAL x 
x = 20 
WRITE (*,100) x, Sgrt(x) 
100 FURMALC’ The Square Poot. of “stacey 1S hore 4) 
END 
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$LIST, $NOLIST 
6.2.9 The $LIST and $NOLIST Metacommands 


Action 


$LIST sends subsequent listing information to the listing file specified 
when starting the compiler. $NOLIST directs that subsequent listing infor- 
mation be discarded, until there is a subsequent occurrence of the $LIST 
metacommand. 


Syntax 


$l NOJLIST 


Remarks 
The default is $LIST. 


If no listing file is specified in response to the compiler prompt, the 
metacommand has no effect. 


$LIST and $NOLIST can appear anywhere in a source file. 
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$MESSAGE 
6.2.10 The $MESSAGE Metacommand 
@ Action 


$MESSAGE sends a character string to the standard output device during 
the first pass of the compiler. 


@ Syntax 
SMESSAGE:string 
Parameter Description 
string | A character constant 


@ Remarks 

The specified string is sent to the standard output device during the first 
pass of the compiler. 

& Example 


The following example writes Compiling program to the standard out- 
put device during execution of the first pass of the compiler: 


$MESSAGE: “Compiling program’ 


305 


$PAGE 


6.2.11 The $PAGE Metacommand 


eB Action 


$PAGE starts a new page in the source-listing file. 


@ Syntax 


$PAGE 


@ Remarks 


If the first character of a line of source text is the ASCII form-feed charac- 
ter (hexadecimal code 0C), it is the same as having a $PAGE metacom- 
mand before that line. 


Example 


This iS page one. 

The following metacommand will start a new page in 
the source listing file: 
PAGE 

This is page two. 

The following line starts with the ASCII form-feed 
character, so it will also start a new page in the 
source listing file: 


7 OIYP OOOD 


This is page 3. 
SOE a 
END 
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$PAGESIZE 
6.2.12 The $PAGESIZE Metacommand 
@ Action 
$PAGESIZE formats subsequent pages of the source listing to a length 


of n lines. 


a Syntax 


$PAGESIZE:n 


@ Remarks 


The argument n must be at least 15. The default page size is 63 lines. 
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SSTORAGE 
6.2.13 The $STORAGE Metacommand 


Action 


S$STORAGE allocates n bytes of memory for all variables declared in the 
source file as integer or logical variables. 


2 Syntax 


SSTORAGE:n 


Remarks 


The argument n must be either 2 or 4. The default 1s 4. 


important 


On many microprocessors, the code required to perform 16-bit arith- 
metic is considerably faster and smaller than the corresponding code to 
perform 32-bit arithmetic. Therefore, unless you set the Microsoft FOR- 
TRAN $STORAGE metacommand to a value of 2, programs will 
default to 32-bit arithmetic and may run more slowly than expected. 
Setting the $STORAGE metacommand to 2 allows programs to run 
faster and to be smaller. 


The $STORAGE metacommand does not affect the allocation of memory 
for variables declared with an explicit length specification, such as 
INTEGER #2 or LOGICAL #4. 


If several files of a source program are compiled and linked together, be 
careful that they are consistent in their allocation of memory for variables 
(such as actual and formal parameters) referred to in more than one 
module. 


The $STORAGE metacommand must precede the first declaration state- 
ment of the source file in which it occurs. 
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$STORAGE 


The default allocation for INTEGER, LOGICAL, and REAL variables is 4 
bytes. This results in INTEGER, LOGICAL, and REAL variables being 
allocated the same amount of memory, as required by the FORTRAN-77 
standard. 


For information on how the $STORAGE metacommand affects arithmetic 
expressions, see Section 2.7.1.2, “Type Conversion of Arithmetic Operands.” 
For information on how the $STORAGE metacommand affects the passing 
of integer arguments, see Section 3.6, “Arguments.” 


a# Example 


$STORAGE:2 

C Since b and ¢ are declared as integers and storage is 
C set to 2 bytes, they will only be two bytes long. 

C a and d will be 4 bytes long. 


integer*4 a, d 


integer b, c 
a = 6553/7 
b = 1024 


C Since c is only 2 bytes, it will get the lower two 
C bytes of atb. 


c = atb 
d = atb 
C The following statement produces: 1025 66561 


write(*,*) c, d 


end 
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SSTRICT, $NOTSTRICT 
6.2.14 The $STRICT and $NOTSTRICT Metacommands 


@ Action 

$STRICT disables the specific Microsoft FORTRAN features not found in 
the FORTRAN 77 full-language standard, and $NOTSTRICT enables these 
features. 


@ Syntax 


$| NOTISTRICT 


@ Remarks 
The default is S$NOTSTRICT. 


Note that all features in Microsoft FORTRAN that are not in the FOR- 
TRAN 77 full-language standard are printed in blue in this manual. 


$STRICT and $NOTSTRICT can appear anywhere in a source file. 
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$STRICT, SNOTSTRICT 


@ Example 


$STRICT 
C The following statement produces an error, because 
C INTEGER*e is not part of the FORTRAN 77 full-language 
C standard: 
INTEGER#*#2 i 
C The variable balance will be truncated to six 
C characters: 
REAL balance(500) 
C The following statement produces an error, because 
C the MODE= option is not part of the FORTRAN 77 full- 
C language standard: 


OOO 


DPEN(2, FILE=’BALANCE.DAT’ ,MODE=’READ?) 


DO 100 i=41, 500 
The following statement produces an error, because 
the EOF intrinsic function i5 not part of the 
FORTRAN 77 full-language standard (EOF is treated 
as a real function): 


iF (EOF (2)\). GuTa200 
READ(2,‘’(F7.2)’) balance(i) 
100 CONTINUE 
200 CONTINUE 
END 
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SSUBTITLE 


6.2.15 The SSUBTITLE Metacommand 


Action 


SSUBTITLE assigns the specified subtitle for subsequent pages of the 
source listing. 


a Syntax 
SSUBTITLE:subtitle 
Parameter Description 
subtitle Any valid character constant 


Remarks 


lf a program contains no $SUBTITLE metacommand, the subtitle is a null 
string. The value of the subtitle string is printed in the upper left corner of 
the source-listing file pages, below the title, if any. Note that, for a subtitle 
to appear on a specific page of the source-listing file, the $S0BTITLE 
metacommand must either be the first statement on that page, or must 
have appeared on a previous page. 


If more than one SSUBTITLE metacommand is specified, earlier subtitles 
are overridden by later ones. 
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SSUBTITLE 


& Kxample 


The following program produces a listing in which each page is titled 
GAUSS (the name of the program). Each subprogram begins on a new page 
of the listing, and the name of the subprogram appears as a subtitle. 


$TITLE: *GAUSS?’ 


C Main program here... 
END 


$SUBTITLE:’Row Division’ 
$PAGE 
SUBROUTINE divide(row, matrix, pivot) 
C Subroutine body... 
RETURN 
END 


$SUBTITLE: “Back Substitution’ 
$PAGE 
SUBROUTINE backsub(matrix) 
C Subroutine body... 
RETURN 
END 


old 


$TITLE 
6.2.16 The $TITLE Metacommand 


Action 


STITLE assigns the specified title for subsequent pages of the source listing 
(until overridden by another $TITLE metacommand). 


Syntax 
STITLE: title 
Argument Description 


title Any valid character constant 


Remarks 


If a program contains no $TITLE metacommand, the title is a null string. 


oS Kxample 


The following program produces a listing in which each page is titled 
GAUSS (the name of the program). Each subprogram begins on a new page 
of the listing, and the name of the subprogram appears as a subtitle. 


$TITLE: ’GAUSS’ 


C Main program here... 
END 


$SUBTITLE: “Row Division’ 
$PAGE 
SUBROUTINE divide(row, matrix, pivot) 
C Subroutine body... 
RETURN 
END 


$SUBTITLE: “Back Substitution’ 
$PAGE 
SUBROUTINE backsub(matrix) 
C Subroutine body... 
RETURN 
END 
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$TRUNCATE, $NOTRUNCATE 


6.2.17 The $TRUNCATE and 
SNOTRUNCATE Metacommands 


@ Action 
STRUNCATE enables truncation of all variable names to six characters. 


S$NOTRUNCATE disables the default or a previous $TRUNCATE 
metacommand. 


# Syntax 


$INOJTRUNCATE 


# Remarks 


The default is $TRUNCATE. If the $STRICT metacommand is set, any 
names greater than 6 characters will generate warning messages. This can 
make it easier to port your code to other systems. 


If $NOTRUNCATE is set, the first 31 characters in a name are significant. 
Your operating system may also restrict the length of names. 
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STRUNCATE, $NOTRUNCATE 


a Example 
C This program produces the following output: 
C 
C 74 Las Vegas St. 
C 74 Las Vegas SL: 
C 
C Barry Floyd 
C 3 Prospect Drive 
IMPLICIT character*20 (S) 
$TRUNCATE 
StudentName ‘Enrique Pieras’ 
StudentAddress = ’74 Las Vegas St.’ 
WRITE (*,100) StudentName, StudentAddress 
$NOTRUNCATE 
StudentName ‘Barry Floyd’ 
StudentAddress = °3 Prospect Drive’ 
WRITE (*#,100) StudentName, StudentAddress 
100  FORMAT(/1X,A20,/1X,A20) 


END 
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Appendix A 
ASCII Character Codes 


Dec 


000 
001 
002 
003 
004 
005 
006 
007 
008 
009 
010 
O11 
O12 
013 
014 
015 
016 
O17 
018 
019 
020 
021 
022 
023 
024 
025 
026 
027 
028 
029 
030 
031 


Oct 


000 
001 
002 
003 
004 
005 
006 
007 
010 
O11 
012 
013 
014 
015 
016 
O17 
020 
021 
022 
023 
024 
025 
026 
027 
030 
031 
032 
033 
034 
035 
036 
037 


Hex 


00H 
01H 
02H 
03H 
04H 
05H 
06H 
07H 
08H 
09H 
OAH 
OBH 
OCH 
ODH 
OEH 
OFH 
10H 
11H 
12H 
13H 
14H 
15H 
16H 
17H 
18H 
19H 
1AH 
1BH 
1CH 
1DH 
1EH 
1FH 


Chr 


NUL 
SOH 
STX 
ETX 
EOT 
ENQ 
ACK 
BEL 
BS 
HT 
LF 
VT 
FF 
CR 
SO 
SI 
DLE 
DC1 
DC2 
DC3 
DC4 
NAK 
SYN 
ETB 
CAN 
EM 
SUB 
ESC 
FS 
GS 
RS 
US 


Dec 


032 
033 
034 
035 
036 
037 
038 
039 
040 
041 
042 
043 
044 
045 
046 
047 
048 
049 
050 
O51 
052 
053 
054 
055 
056 
057 
058 
059 
060 
061 
062 
063 


Oct 


040 
041 
042 
043 
044 
045 
046 
047 
050 
O51 
052 
053 
054 
055 
056 
057 
060 
061 
062 
063 
064 
065 
066 
067 
070 
O71 
072 
073 
074 
O75 
076 
O77 


Hex 


20H 
21H 
22H 
23H 
24H 
25H 
26H 
27H 
28H 
29H 
2AH 
2BH 
2CH 
2DH 
2EKH 
2FH 
30H 
31H 
32H 
33H 
34H 
39H 
36H 
37H 
38H 
39H 
3AH 
3BH 
3CH 
3DH 
3KH 
3FH 


~~ 


OoOnnorhwNnNhr O~-* 


ace aa el 


Dec = Decimal, Oct = Octal, Hex = Hexadecimal(H), Chr= Character, LF = Line Feed, FF = Form 


Feed, CR=Carriage Return, DEL = Rubout 
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Appendix A (continued) 


Dec 


064 
065 
066 
067 
068 
069 
070 
O71 
072 
073 
074 
075 
076 
077 
078 
079 
080 
081 
082 
083 
084 
085 
086 
087 
088 
089 
090 
O91 
092 
093 
094 
095 


Oct 


100 
101 
102 
103 
104 
105 
106 
107 
110 
111 
112 
113 
114 
115 
116 
117 
120 
121 
122 
123 
124 
125 
126 
127 
130 
131 
132 
133 
134 
135 
136 
137 


Hex 


40H 
41H 
42H 
43H 
44H 
45H 
46H 
47H 
48H 
49H 
4AH 
4BH 
4CH 
4DH 
4hH 
AFH 
50H 
51H 
52H 
53H 
D4H 
50H 
56H 


‘57H 


58H 
59H 
5AH 
5BH 
5CH 
5DH 
5EH 
oFH 


© 


hr 


Dec 
096 
097 
098 
099 
100 
101 
102 
103 
104 
105 
106 
107 
108 
109 
110 
lil 
112 
113 
114 
115 
116 
117 
118 
119 
120 
121 
122 
123 
124 
125 
126 
127 


Oct 


140 
141 
142 
143 
144 
145 
146 
147 
150 
151 
152 
153 
154 
155 
156 
157 
160 
161 
162 
163 
164 
165 
166 
167 
170 
171 
172 
173 
174 
175 
176 
177 


Hex 


60H 
61H 
62H 
63H 
64H 
65H 
66H 
67H 
68H 
69H 
6AH 
6BH 
6CH 
6DH 
6EH 


6FH 


70H 
71H 
72H 


73H 


74H 
75H 
76H 
77H 
78H 
79H 
7AH 
7BH 
7CH 
7DH 
7EH 
7FH 


Chr 


te SPN a ge ad cE Ae OB Boy eb mo Goo io a 


DEL 


Dec = Decimal, Oct = Octal, Hex = Hexadecimal(H), Chr =Character, LF = Line Feed, FF = Form 


Feed, CR=Carriage Return, DEL = Rubout 
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Appendix B 
Intrinsic Functions 


This appendix gives an alphabetical listing of all of the intrinsic functions 
in Microsoft FORTRAN. The following list shows the abbreviations used in 
this appendix for different data types. 


Abbreviation Data Type 
gen More than one possible argument type; see 
| “Argument Type” column 

int INTEGER, INTEGER #1, INTEGER #2, 
or INTEGER#4 

intl INTEGER #1 

int2 INTEGER #2 

int4 INTEGER «4 

real 3 REAL, REAL#4, DOUBLE PRECISION, 
or REAL#8 

real4 REAL «4 

dbl DOUBLE PRECISION 

log LOGICAL, LOGICAL #1, LOGICAL «2, 
or LOGICAL #4 

logl LOGICAL#1 

log2 LOGICAL #2 

log4 LOGICAL #4 

cmp COMPLEX, COMPLEX 28, 
or COMPLEX «16 

cmp8 COMPLEX «8 

cmp16 COMPLEX «16 

char CHARACTER [zn] 
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Microsoft FORTRAN Compiler Language Reference 


Table B.1 gives an alphabetical listing of the intrinsic functions in Micro- 


soft FORTRAN. 


Table B.1 


Intrinsic Functions 


Name 


ABS(gen) 


ACOS(real) 


AIMAG(cmp8) 


AINT(real) 
ALOG(real4) 
ALOG10(reail4) 


AMAXO(intA,intBL,iniC]...) 


AMAXI(real4A,real4Bl,real4C]...) 


AMINO(intA,intBll,intC]...) 


AMIN 1 (real4A,real4BI,real4C]...) 


AMOD(real4A,real4B) 
ANINT(real) 


ASIN(real) 


ATAN(real) 


ATAN2(realA,realB) 


BTEST(intA intB) 


d22 


Definition 


Absolute value 


Are cosine 


Imaginary, 
part of cmp8 
number 


Truncate 


Natural 
logarithm 


Common 
logarithm 


Maximum 
Maximum 
Minimum 
Minimum 
Remainder 


Round 

Arc sine 
Arc tangent 
Arc tangent 


(realA/realB) 
Bit test 


Argument 
Type 


int, real, or 
cmp 


real 


emps 


real 
real4 
real4 
int 
real4 
int 
real4 


real4 


real 
real 
real 
real 


int 


Function 
Type 


Same as 
argument type 
unless argument 
is cmp* 

Same as 
argument 


real4 


Same as 
argument 


real4 
real4 


real4 
real4 
real4 
real4 
real4 


Same as 
argument 


Same as 
argument 


Same as 
argument 


Same as 
argument 


log 


Table B.1 (continued) 


Name 


CABS(cmp) 
CCOS(cmp8) 
CDABS(cmp!6) 
CDCOS(cmp!16) 
CDEXP(cmp16) 
CDLOG(cmp16) 


CDSIN(cmp16) 
CDSQRT\(cmp16) 
CEXP(cmp8) 
CHAR(Gn?) 


CLOG(emp8) 
Super ALD 
CONJG(cmp8) 
COS(gen) 

COSH(real) 
COTAN(real) 


CSIN(cmp8) 
CSQRT(cmp8) 
DABS(dbl) 
DACOS(dbl) 
DASIN(dd/) 


Definition 


Absolute value 
Cosine 
Absolute value 
Cosine 
Exponent. 


Natural 
logarithm 


Sine 
Square root 
Exponent 


Data-type 
conversion 


Natural 
logarithm 


Data-type 
conversion 


Conjugate of 
emp8 number 


Cosine 


Hyperbolic 
cosine 


Cotangent 


Sine 

Square root 
Absolute value 
Arc cosine 


Arc sine 


Argument 
Type 


cmp 
cmps 
cmp16 
cmp16 
cmpl16 
empl6 


cempl16 
cmp16 
cmp8s 


int 

cmps 

int, real, or 
cmp 

cmps 

real or cmp 
real 


real 


cmps 
cmp8 
dbl 
dbl 
dbl 


Intrinsic Functions 


Function 
Type 


real* 
cmps 
dbl 
cmp16 
cmp16 
cmp16 


cmp16 
cmp16 
cmp8 


char 

cmp8s 
cmp8 
cmp8 


Same as 
argument 


Same as 
argument 


Same as 
argument 


cmp8 
cmp& 
dbl 
dbl 
dbl 
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Table B.1 (continued) 


Argument Function 
Name Definition Type Type 
DATAN(dbdl) Arc tangent dbl dbl 
DATAN2(dbiA,dbiB) Arc tangent dbl dbl 
(dblA/dbiB) 
DBLE gen) Data-type int, real, or dbl 
conversion cmp 
DCMPLX(genAl,genB]) Data-type int, real, or emp16 
conversion emp 
DCONJG(cmp16) Conjugate of cmp16 cmp16 
cmp16 number 
DCOS(ddl) Cosine dbi dbl 
DCOSH(db) Hyperbolic dbl dbl 
cosine 
DCOTAN(db/) Cotangent dbl dbi 
DDIM(db/A,dbiB) Positive dbl dbl 
difference 
DEXP (dbl) Exponent dbl dbl 
DIM(genA,genB) Positive int or real Same as 
difference argument 
DIMAG(cmp16) Imaginary part empl6 dbl 
of cmp16 
number 
DINT(db/) Truncate dbl | dbl 
DLOG(db) Natural dbl dbl 
logarithm 
DLOG10(dbl) Common db] db] 
logarithm 
DMAX1(dbdiA,db/B[,dbic]...) Maximum dbl dbl 
DMIN1(dd/A,dbd/BI,db/C}...) Minimum dbl dbl 
DMOD(@dbdiIA,dbiB) Remainder dbl dbl 
DNINT (dbl) Round db] dbl 
DPROD(real4A,real4B) Double- real4 dbl 
precision 
product 
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Table B.1 (continued) 


Name 


DREAL(cmp16) 


DSIGN(dbiA,dbiB) 


DSIN(dbd/) 
DSINH(ddl) 
DSQRT(db/) 
DTAN(dbd!) 


DTANH(dbd/) 


EOF(n2) 
EXP(gen) 


FLOAT(Cn?) 
HFIX(gen) 


IABS(int) 


TAND(ntA,intB) 


IBCHNG(intA,intB) 


IBCLR(intA ,intB) 


IBSET(ntA ,intB) 


ICHAR(char) 


IDIM(intA,intB) 


IDINT (dd) 


IDNINT(dbl) 


Definition 


Data-type 
conversion 


Sign transfer 
Sine 
Hyperbolic sine 
Square root 
Tangent 


Hyperbolic 
tangent, 


End-of-file 


Exponent 


Data-type 
conversion 


Data-type 
conversion 


Absolute value 


Logical product 


Bit change 


Bit clear 


Bit set 


Data-type 
conversion 


Positive 
difference 


Data-type 
conversion 


Round 


Argument 
Type 


cmp16 


dbl 
dbl 
dbl 
dbl 
dbl 
dbl 


int 


real or cmp 
int 

int, real, or 
emp 

int 

int 

int 

int 

int 

char 

int 

dbl 


dbl 


Function 
Type 


dbl 


dbl 
dbl 
dbl 
dbl 
dbl 
dbl 


log 


Same as 
argument 


real4 
int2 


int 
Same as 
argument 


Same as 
argument 


Same as 
argument 


Same as 
argument 
int 

int 

int 


int 


Intrinsic Functions 
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Table B.1 (continued) 


Argument Function 
Name Definition Type Type 
IEOR(intA,intB) Exclusive or int same as 
argument 
IFIX(real4) Data-type reald int 
conversion 
IMAG(cmp) Imaginary part cmp real® 
of cmp number 
INDEX(charA,charB) Location of char int 
substring charB 
in string charA 
INT(gen) Data-type int, real, or int 
conversion cmp 
INT 1(gen) Data-type int, real, or intl 
| conversion cmp 
INT2(gen) Data-type int, real, or int2 
conversion cmp 
INT4(gen) Data-type int, real, or int4 
conversion cmp 
INTC(gen) Data-type int, real, or INTEGER[C] 
conversion cmp 
IOR(niA,intB) Inclusive or int Same as 
argument 
ISHA(intA,intB) Arithmetic int same as 
shift argument 
ISHCGntA,intB) Rotate int Same as 
argument 
ISHFT(intA,intB) Logical shift int Same as 
argument 
ISHL(ntA,intB) Logical shift int Same as 
argument 
ISIGN(intA,intB) Sign transfer int int 
J FIX(gen) Data-type int, real, or int4 
conversion cmp 
LEN(char) Length of char int 
string edt 
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Table B.1 (continued) 


Argument Function 
Name Definition Type Type 
LGE(charA,charB) charA>=charB char log 
LGT(charA,charB) charA>charB char log 
LLE(charA,charB) charA<=charB char log 
LLT(charA,charB) charA<charB char log 
LOC(gen) Address Any int2 or int4 
LOCFAR(gen) Segmented Any int4. 
address 
LOCNEAR(gen) Unsegmented Any int2 
address 
LOG(gen) Natural real or cmp Same as 
logarithm argument 
LOG10(real) Common real Same as 
logarithm argument 
MAX(genA,genBl,genC]...) Maximum int or real Same as 
argument 
MAXO0GntA,intBlLintC]...) Maximum int int 
MAXI (real4A,real4Bl,real4C]...) Maximum real4 int 
MIN(genA,genBI,genC]...) Minimum int or real Same as 
argument 
MINO(GntA ,intBL,intC]...) Minimum int int 
MIN I1(real4A,real4Bl,real4C]...) Minimum real4 int 
MOD(genA,genB) Remainder int or real Same as 
argument 
NINT real) Round real int 
NOT(intA) Logical int Same as 
complement argument 
REAL(gen) Data-type int, real, or real4 
conversion cmp 
SIGN(enA,genB) Sign transfer int or real Same as 
argument 
SIN(gen) Sine real or cmp Same as 
argument 
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Table B.1 (continued) 


Name Definition 

SINH (real) Hyperbolic sine 

SNGL(dd/) Data-type 
conversion 

SQRT(gen) Square root 

TAN(reai) Tangent 

TANH (rea) Hyperbolic . 
tangent 


Argument 
Type 


real 

dbl 

real or cmp 
real 


real 


Function 
Type 


Same as 
argument 


real4 


Same as 
argument 


Same as 
argument 


Same as 
argument 


* Tf argument is COMPLEX *8, function is REAL*4. If argument is COMPLEX * 16, function 


is DOUBLE PRECISION. 


328 


Appendix C 
Additional Procedures 


C.1 Introduction 331 
C.2. Time and Date Procedures 331 
C.3 Run-Time Error Procedures 333 


329 


Additional Procedures 


C.1 Introduction 


Microsoft FORTRAN contains some additional procedures that control and 
access the system time and date, and get and reset run-time-error code 
information. The following sections describe these procedures. 


C.2 Time and Date Procedures 


The functions SETTIM and SETDAT, and the subroutines GETTIM and 
GETDAT, allow you to use the system time and date in your programs. 
SETTIM and SETDAT set the system time and date; GETTIM and 
GETDAT return the time and date. Table C.1 summarizes the time and 
date procedures. 


Table C.1 


Time and Date Procedures 


Argument Function 

Name Definition Type Type 
GETTIM(thr,imin,isec,i1 00th) Gets system time INTEGER #2 
SETTIM(hr,imin,isec,i1 00th) Sets system time INTEGER #2 LOGICAL 
GETDAT(iyr,imon,iday) Gets system date INTEGER#2 
SETDAT(zyr,imon,iday) Sets system date INTEGER #2 LOGICAL 
The arguments are defined as follows: 

Argument Definition 

thr Hour (0 — 23) 

imin Minute (0-59) 

isec Second (0-59) 

t100th Hundredth of a second (0 —- 99) 

lyr Year (xxxx AD) 
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tmon Month (1 — 12) 
iday Day of the month (1 ~ 31) 


Actual arguments used in calling GETTIM and GETDAT must be 
INTEGER #2 variables or array elements. Because these subroutines 
redefine the values of their arguments, other kinds of expressions are 
prohibited. 


Actual arguments of the functions SETTIM and SETDAT can be any legal 
INTEGER «2 expression. SETTIM and SETDAT return . TRUE. if suc- 
cessful (that is, the system time or date is changed), or .FALSE. if no 
change is made. 


Refer to your operating-system documentation for the range of permitted 
dates. 


m@ Examples 


The following program sets the date and time, then prints them on the 
screen: 


c Warning: this program will reset your 
c system date and time. 


$STORAGE:2 
CHARACTER*12 CDATE, CTIME 
LOGICAL SETDAT, SETTIM 
DATA CDATE /’The date is ‘%/ 
DATA CTIME /’The time i5 ’/ 
IF (.NOT. (SETDAT(1986,7,4)}) 
+ WRITE (*,*) “’SETDAT failed’ 
c sets the date to July 4th, 1986. 
IF (.NOT. (SETTIM (0,0,0,0))) 
+ WRITE (#,*) “SETTIM failed’ 
c sets the time to 00:00:00.00 (midnight) 
CALL GETDAT(IYR,IMON,IDAY) 
c gets the date from the system clock 
CALL GETTIM(IHR,IMIN,ISEC,I100TH) 
c gets the time of day from the system clock 
+ CDATE,IMON,IDAY,IYR 
c writes out the date 
WRITE (ey. “C1 X05 lene tage we ss 
+ gI12y 23 Vises levee) ) 
+ CTIME,TIHR,IMIN,ISEC,I100TH 
c writes out the time in the format xx:xx:xx.xx 
END 


doz 


Additional Procedures 


C.3 Run-Time-Error Procedures 


The IGETER function and the ICLRER subroutine are included for com- 
patability with previous versions of FORTRAN. Their functionality is pro- 
vided in the current version by the IOSTAT= option. (See Section 4.3.10, 
“Error and End-of-File Handling,” for more information about IOSTAT =.) 


IGETER is called after an I/O operation that includes the ERR= or 
IOSTAT= options. It returns the following values: 


Return Value Description 
0 No error occurred. 
Negative value An end-of-file condition occurred, but no other 


error occurred. 


Positive value An error occurred. The return value is the 
error number. 


The IGETER calling interface has the following form: 


INTEGER*2 FUNCTION IGETER(IUNIT) 
INTEGER*2 [UNIT 


END 
ICLRER resets the FORTRAN run-time-error code information after an 
error has been encountered and handled through ERR= and IOSTAT =. 
The ICLRER calling interface has the following form: 


SUBROUTINE ICLRER(IUNIT) 
INTEGER*2 JUNIT 


END 
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Glossary 


The definitions in this glossary are intended primarily for use with this 
manual and the Microsoft FORTRAN Compiler User’s Guide. Neither indi- 
vidual definitions nor the list of terms is comprehensive. 
8087 and 80287 coprocessors 
Intele hardware products that provide very fast and precise number 
processing. 
Actual argument 
The specific item (such as a variable, array, or expression) passed to a 
subroutine or function at a specific calling location. 
Alphanumeric 


A letter or a number. 


Argument 


A value passed to and from functions and subroutines. 


Array declarator 


The specifier array(|lower:]upper). 


Associated 


Referring to the same actual memory location. 


Attribute | 
A keyword that specifies additional information about a variable, vari- 
able type, subprogram, or subprogram formal argument. 

Base name 


The portion of the file name that precedes the file-name extension. 
For example, samp is the base name of the file samp. for. 


Binary 


Base-2 notation. 
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C string © 
A character constant followed by the character C. The character con- 
stant is then interpreted as a C-language constant. 

Column-major order 
The order in which array elements are stored: the leftmost subscript is 
incremented first when the array is mapped into contiguous memory 
addresses. 

Compiland 
A file containing ASCII text to be compiled by the Microsoft FORTRAN 
Compiler. A compiland is also called a source file. 

Compile time 
The time during which the compiler is executing, compiling a Microsoft 
FORTRAN source file, and creating a relocatable object file. 

Compiler 
A program that translates FORTRAN programs into code understood by 
the computer. 

Complex number 


A number with a real and an imaginary part. 


Constant folding 


The process of evaluating expressions that contain only constants, and 
then substituting the calculated constant for the expression. Constant 
folding is performed by the compiler during optimization. The expres- 

sion 9*3.1, for example, becomes 27.9. 


Dimension declarator 
The specifier [lower:]upper; upper minus lower plus 1 equals the 
number of dimensions in an array. 

Domain 


The range of a function’s valid input values. For example, in the ex- 
pression y=f (x), the domain of the function f (x) is the set of all 
values of x for which f (x) is defined. A “DOMAIN” error message is 
returned when an argument to a function is outside the domain of the 
function. 
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Double-precision real number 


A real number that is allocated 8 bytes of memory. 


Dummy argument 


A formal argument. 


Excess-127, Excess-64 
A type of notation in which the specified constant (127 or 64) is added 
to every number. 

Executable program 
A file containing executable program code. When the name of the file is 
entered at the system prompt, the instructions in the program are per- 
formed. 

External reference 
A variable or routine in a given module that is referred to by a routine 
in another module. 

Far call 


An address that specifies the segment as well as the offset. 


FL | 
A command used by Microsoft FORTRAN to compile and link programs. 


Formal argument 
The name by which a specific argument is known within a function or 
subroutine. 

Hexadecimal 


Base-16 notation. 


High-order bit 


The highest-numbered bit; the bit farthest to the left. It is also called 
the most-significant bit. 
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Huge model 


A memory model that allows for more than one segment of code and 
more than one segment of data, and that allows individual data items 
to span more than one segment. 

IEEE 


Institute of Electrical and Electronics Engineers, Inc. 


In-line code 
Code that is in the main program, as opposed to code that is in a sub- 
routine called by the main program. Using in-line code is faster, but it 
makes programs larger. 

Input/ output list (I/O) 
A list of items to input or output. PRINT, READ, or WRITE state- 
ments can specify an I/O list. 

Keyword 


A word with a special, predefined meaning for the compiler. 


Large model 
A memory model that allows for more than one segment of code and 
more than one segment of data. 

Large-model compiler 
A compiler that assumes a program has more than one segment of code 
and more than one segment of data. 

Least-significant byte 
The lowest-numbered byte; the first byte. It is also called the low- 
order byte. 

Library 
A file that stores related modules of compiled code. These modules are 
used by the linker to create executable program files. 

Link time 


The time during which the linker is executing, that is, linking relocat- 
able object files and library files. 
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Linking 
The process by which the linker loads modules into memory, computes 
addresses for routines and variables in relocatable modules, and then 
resolves all external references by searching the run-time library. After 
loading and linking, the linker saves the modules it has loaded into 
memory as a single executable file. 

Long call 
An address that specifies the segment as well as the offset. It is also 
referred to as the long address. 

Low-order bit 
The lowest-numbered bit; the bit farthest to the right. It is also called 
the least-significant bit. 

Machine code 


Instructions that a microprocessor can execute. 


Mantissa 
The decimal part of a base-10 logarithm. 


Medium model 
A memory model that allows for more than one segment of code and 
only one segment of data. 

Memory map 
A representation of where in memory the compiler expects to find cer- 
tain types of information. 

Most-significant byte 
The highest-numbered byte; the last byte. It is also called the high- 
order byte. 

NAN 


An abbreviation that stands for “Not A Number.” NANs are generated 
when the result of an operation cannot be represented in the IEEE for- 
mat. For example, if you try to add two positive numbers whose sum is 
larger than the maximum value permitted by the compiler, the proces- 
sor will return a NAN instead of the sum. 
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Near call 
A call to a routine in the same segment. The address of the called 
routine is specified with an offset. 

Object file 


A file that contains relocatable machine code. 


Offset 
The number of bytes from the beginning of a segment to a particular 
byte in that segment. 

Optimize 
To reduce the size of the executable file by eliminating unnecessary 
instructions. 

Pass 
Individual readings of source code made by the compiler as it processes 
information. Each reading is called a pass. 

PLOSS 


Appears in an error message when the error caused a partial loss of 
accuracy in the significant digits of the result. For example, a PLOSS 
error on a single-precision result indicates that less than six decimal 
digits of the result are reliable. 

Program unit 


A main program, a subroutine, a function, or a block-data subprogram. 


Relocatable 


Not containing absolute addresses. 


Run time 
The time during which a previously compiled and linked program is 
executing. 

Run-time library 


A file containing the routines needed to implement certain functions 
of the Microsoft FORTRAN language. A library module usually 
corresponds to a feature or subfeature of the Microsoft FORTRAN 
language. 3 
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Segment 
An area of memory, less than or equal to 64K long, containing code 
or data. 

Short call 
A call to a routine in the same segment. The address of the called rou- 
tine is specified with only an offset. It is also referred to as the short 
address. 

Sign extended 


The sign bit of a number is propagated through all the higher-order 
bits. In this way, the sign is preserved when the number is written into 
a larger format. 

Single-precision real number 


A real number that is allocated 4 bytes of memory. 


Small model 
A memory model that allows for only one segment of code and only 
one segment of data. 

Source file 
A file containing the original ASCII text of a Microsoft FORTRAN 
program. 

Stack 


A dynamically shrinking and expanding area of memory in which 
data items are stored in consecutive order and removed on a last-in, 
first-out basis. 


String 


A character constant. 


Terminal I/O 


Any I/O done to a terminal device. Examples of a terminal device are 
the console, keyboard, and printer. 
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TLOSS 


Appears in an error message when the error caused a total loss of accu- 
racy in the significant digits of the result. For example, a TLOSS error 
on a single-precision result indicates that none of the six significant 
digits of the result are reliable. 


Two’s complement 
A type of base-2 notation in which 1s and Os are reversed (comple- 
mented), and 1 is added to the result. 

Type coercion 


The forcing of a variable to have a particular data type. For example, 
when integer values are used in expressions, if one operand of an 
expression containing the operators plus (+), minus (—), or multiplica- 
tion (*) is of type REAL, the other operand is converted to a real 
number before the operation is performed. 


Undefined variable 
A variable that cannot be found, either in the routine being linked or, 
for an external reference, in a routine in another module. 
Unresolved reference 


A reference to a variable or a subprogram that cannot be found, either 
in the routine being linked or, for an external reference, in a routine in 
another module. 
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’ (apostrophe) 
character string, 25 
described, 6, 25 
* (asterisk) 
alternate return, 175 
formal argument, 175 
multiplication operator, 39 
unit specifier 
closing, 103 
inquiring, 232 
opening, 254 
writing to, 259 
upper dimension bound, 191, 192 
** (asterisks), exponentiation 
operator, 39 
\ (backslash) 
See also Backslash (\) editing 
character, 27 
edit descriptor, 122 
editing, 130 
| (bar), 7 
{ } (braces), 7 
[ ] (brackets), 6 
: (colon) 
editing, 130 


nonrepeatable edit descriptor, 130 


, (comma) 

edit list, 108 

field delimiter, 128, 134 
$ (dollar sign), 13 
.. (dots), 7 


— (minus sign), subtraction operator, 


39 
+ (plus sign) 
addition operator, 39 
carriage-control character, 124 
‘(single left quotation mark), 25 
/ (slash) 
See also Operator, division 
described, 39 
editing, 130 
See also Slash (/) editing 
// (slashes), 44 


_ (underscore), names using C 
attribute, 33 
__ (underscore), names, 16 


0 
carriage-control character, 124 
unit specifier, 254 
1, carriage-control character, 124 
2-byte arithmetic. See 16-bit arithmetic 
3.2, Version, libraries compiled with, 
35 
4-byte arithmetic. See 32-bit arithmetic 
5 (unit specifier), 254 
6 (unit specifier), 254 
16-bit arithmetic 
$DEBUG, 42 
INT2, 68 
32-bit arithmetic 
S$DEBUG, 42 
INT4, 68 
8087/80287 coprocessor, defined, 335 


A editing, 142 
See also Character editing 
Abbreviations, in intrinsic function 
tables, 66 
ABS intrinsic function, 72 
Absolute value 
complex number, 72 
intrinsic function, 72 
Access 
described, 105 
direct, 105 
files, when networking, 117 
internal file, 105 
random, 120 
sequential, 105 
ACCESS = option, 100, 105 
ACOS, 84, 85 
Action, 288 
Actual argument 
See also Argument, actual 
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Actual argument (continued) 
alternate-return specifier, 58 
array element, 58, 59 
associated, 57 
corresponding formal argument, 58 
default data segment, 35 
defined, 335 
described, 57 
different number than formal 

arguments, 37 
expression, 08 
EXTERNAL, 59 
FAR, 34 
function, 59 
INTRINSIC, 59, 65 
multiple segments, 301 
NEAR, 36 
number, 57, 174 
subroutine, 59 
variable, 58 

Address 
common blocks, 183 
intrinsic function, 89 
long, defined, 339 
odd, 211 
offset, 35 
segmented, 34, 35 
short, defined, 341 

Adjustable-size array 
defined, 192 
passing by value, 36 

adr type, Microsoft Pascal, 89 

ads type, Microsoft Pascal, 89 

adsfunc type, Microsoft Pascal, 89 

adsproc type, Microsoft Pascal, 89 

Agreement. See Checking arguments 

AIMAG, 79 

AINT, 70 

Algorithm 
AIMAG, 79 
AMOD, 74 
ANINT, 71 
CONJG, 79 
DDIM, 75 
DIM, 75 
DMOD, 74 
DNINT, 71 
IDIM, 75 
IDNINT, 71 
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intrinsic function 
arithmetic shift, 91 
bit change, 91 
bit clear, 91 
bit set, 91 
bit test, 91 
exclusive or, 91 
inclusive or, 90 
logical complement, 91 
logical product, 91 
logical shift, 90 
rotate, 91 
MOD, 74 
NINT, 71 
ALIAS, 32 
Allocating memory. See Memory, 
allocating 
ALOG, 82 
ALOGI1O, 82 
Alphabetic characters 
character set, 13 
names, 15 
Alphanumeric 
characters, names, 15 
defined, 335 
Alternate return 
actual argument, 58 
described, 175 
formal argument, 59 
function, 64 
Alternate-return specifier, 217 
AMAXO, 59, 76 
AMAX1, 59, 76 
American National Standards 
Institute. See ANSI standard 
American Standard Code for 
Information Interchange. See 
ASCII 
AMINO, 59, 76 
AMIN1, 59, 76 
AMOD, 74 
.AND. operator, 46 
Angle, in trigonometric intrinsic 
function, 85 
ANINT, 70, 71 
ANSI standard 
comparing arithmetic and character 
variables, 44 
extensions, 3, 4 
identified, 3 


ANSI standard (continued) 
$STRICT, 310 
variables, size, 25 


Apostrophe (’) 


character string, 25 
described, 6, 25 
editing, 127 


Are cosine intrinsic function, 84 
Arce sine intrinsic function, 84 
Arc tangent intrinsic function, 84 
Argument 


actual 
alternate-return specifier, 58 
array, 59 
array element, 58, 59 
associated, 57 
corresponding formal argument, 58 
default data segment, 35 
defined, 335 
described, 57 
expression, 58 
EXTERNAL, 59 
FAR, 34 
function, 59 
INTRINSIC, 59, 65 
multiple segments, 301 
NEAR, 36 
number, 57, 174 
subroutine, 59 
variable, 58 
agreement of data types, 57 
CHAR, 69 
checking 
function, 18 
integers, 175 
INTERFACE, use of, 18, 57, 60, 
174, 240 
logical, 175 
subroutine, 18, 174 
data type, subroutine, 174 
data-type conversion, 68 
defined, 335 
described, 57 
different number of formal and 
actual, 37 
dummy, defined, 337 
See also Argument, formal 
formal 
alternate return, 59 
array, 59 


formal (continued) 
assigning a value, 57 
associated, 57 
asterisk (*), 175 
C attribute, 34 


Index 


corresponding actual argument, 58 


defined, 337 
described, 57 
EXTERN, 34 
EXTERNAL, 59 
FAR, 34 
function, 59 
HUGE, 34 
intrinsic function, 59, 66 
$LARGE, 34 
number, 57, 174 
subroutine, 59 
variable, 58 
function, 64 
ICHAR, 69 
integer 
checking, 175 
passing, 59, 60 
intrinsic function 
data type, 65 
described, 66 
LEN, 87 
logarithm, 82 
out of range, 66 
square root, 81 
undefined, 66 
name, 17 
number, 174 


spanning more than one segment, 34 


statement function, 17 
value, data-type conversion, 60 
Arithmetic 
16-bit 
SDEBUG, 42 
INT2, 68 
32-bit 
$DEBUG, 42 
INT4, 68 
high-precision, $DEBUG, 42 
long. See Arithmetic, 32-bit 
short. See Arithmetic, 16-bit 
speed, 308 
testing, 289 
Arithmetic assignment statement, 
described, 166 
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Arithmetic expression 
arithmetic expression, compared to, 
44 
character expression, compared to, 
44 
described, 39 
Arithmetic IF, described, 224 
Arithmetic operand 
data-type conversion, 43 
list, 39 
rank, 41 
type conversion, 41 
Arithmetic operation 
precedence, 40 
prohibited, 40 
Arithmetic operator 
addition (+), 39 
binary, 39 
division (/), 39 
exponentiation (**), 39 
multiplication (*), 39 
subtraction (—), 39 
table, 39 
unary, 39 
Arithmetic shift intrinsic function, 91 
Array 
actual argument, 59 
adjustable size, 36, 192 
assumed size, 36, 192 
bounds. See Subscript 
character, 97 
default data type, 30 
described, 30 
DIMENSION statement, 191 
dimensions, 30 
EQUIVALENCE statement, 211 
formal argument, 59 
HUGE, 386 
internal file, 97 
SLARGE, 36 
name, 17 
number of dimensions, 191 
passing by value, 37 
size, 30 
storage order, 193, 336 
Array declarator, 191, 335 
Array element 
actual argument, 58, 59 
character, 97 
expression, used in, 38 
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Array element (continued) 
local, 189 
referencing, 30 
storage order, 336 
syntax, 30 
undefined, 38, 39 
ASCII 
character set, 13, 319 
character values, 25 
characters, representing, 28 
collating sequence 
character set, 14 
data-type conversion, 69 
intrinsic functions, 87 
relational expression, 45 
values, input/output, 121 
ASIN, 84, 85 
Assembly language 
accessing, 34 
extern, 213 
performance, 61 
ASSIGN 
description, 164 
format specifiers, 110 
INTEGER#1 variables, 165 
undefined variable, 39 — 
Assigned GOTO, 219, 289 
Assignment, checking range, 289 
Assignment compatibility, statement 
functions, 273 
Assignment statement 
arithmetic, 166 
character, 167 
described, 166 
logical, 166 
Associated, defined, 210, 335 
Association 
address, 211 
arguments, actual and formal, 57 
common block, 183 
Associativity. See Precedence 
Assumed-size array 
defined, 192 
passing by value, 36 
Asterisk (*) 
alternate return, 175 
formal argument, 175 
format specifier, 111 
length specifier, 178 
multiplication operator, 39 


Index 


Asterisk (*) (continued) Binary file 
output, 134 described, 107 
unit specifier reading, 263 
closing, 103 | record boundary, 107 
described, 103 Binary operator 
inquiring, 232 arithmetic, 39 
opening, 254 logical, 46 
writing to, 259 relational, 45 
upper dimension bound, 191, 192 Bit 
Asterisks (* *), exponentiation high order, defined, 337 
operator, 39 least significant, defined, 339 
ATAN, 84, 85 most significant, defined, 337 
ATAN2, 84, 85 Bit change intrinsic function, 91 
Attribute Bit clear intrinsic function, 91 
ALIAS, 32 Bit manipulation intrinsic function, 90 
C, 33, 34, 36 Bit pattern 
defined, 335 hexadecimal, 27 
described, 31 octal, 27 
EXTERN, 34 Bit set intrinsic function, 91 
FAR, 34 Bit test intrinsic function, 91 
HUGE, 34, 36 Blank 
interface, used in, 241 carriage-control character, 124 
NEAR, 35 character constants, 14, 25 
PASCAL, 36 column 6, 14 
REFERENCE, 35, 36 common block, initializing, 63 
syntax, 32 file name, 249 : 
table, 31 Hollerith fields, 14 
VALUE, 36 input/output, 133 
VARYING, 38, 37 interpretation, 132 
list-directed input, 149 
names, 15 
Backslash (\) significance, 14 
character, 27 | BLKDQQ, 16 
edit descriptor, 125 BLOCK DATA, 56, 171 
editing, 130 See also Block-data subprogram 
BACKSPACE, 98, 169 Block ELSE. See ELSE block 
Backspace character, 27 Block ELSEIF. See ELSEIF block 
Bar (i), 7 Block IF. See IF block 
Base 10 Block, common. See Common block 
constants, 21 Block-data subprogram 
logarithm, 82 See also BLOCK DATA 
Base contents, 56 
default, 21 DATA statement, 189 
specifying, 21 described, 63 
Base name, defined, 335 identifying, 171 
Bell character, 27 named common blocks, 172 
Big programs, 61 statements allowed, 171 
Binary summary, 61 
defined, 335 unnamed, 171 
interface, 121 BLOCKSIZE = option, 114 
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Blue type, 3, 4 
BN edit descriptor, 132 
Bold type, 5, 6 
Bound. See Dimension bound 
Bounds, character substring, 28 
Bounds, subscript. See Subscript 
Braces ({ }), 7 
Brackets ([ ]), 6 
BTEST, 90 
Byte 
See also Length 
high order, 339 
least significant, 338 
low order, 338 
most significant, 339 
BZ edit descriptor, 132 


C attribute 
described, 33 
formal argument, 34 
INTEGER, 34 
names, 33 
passing by value, 33, 36 
C integer 
C attribute, 34 
size, 34 
C language, 27 
See also Microsoft C 
C string 
defined, 336 
described, 27 
escape sequence, table, 27 
nonprintable character, 25 
null string, 25 
CABS, 72 
CALL 
checking arguments, 18 
described, 173 
DO loop, used with, 195 
subroutine, 62 
Call 
long, defined, 339 
short, defined, 341 
Calling conventions 
Microsoft C, 33 
Microsoft FORTRAN, 33 
Microsoft Pascal, 33 
Calling subroutine 
CALL, 173 
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Calling subroutine (continued) 
recursion, 174 
Capital letter 
See also Case sensitivity; Uppercase 
notation, 5 
small, 8 
Card, 51 
Carriage control, 124, 149 
Carriage-return character, 27 
Case sensitivity 
ALIAS, 32 
character constants, 13, 25 
described, 13 
external names, 32 
Hollerith fields, 13 
keywords, 5 
CCOS, 84 
CDABS, 72 
CDCOS, 84 
CDEXP, 82 
CDLOG, 82 
CDSIN, 84 
CDSQRT, 80 
CEXP, 82 
CHAR, 59, 68, 69 
char, 67, 321 
CHARACTER, 177 
Character 
alphabetic, 13 
apostrophe (’), 6, 25 
ASCII 
table, 319 
using, 13 
backslash (\), 27 
backspace, 27 
bell, 27 
blank, 14 
carriage control, 124 
carriage return, 27 
conversion to, 69 
default length, 178 
described, 25 
digits, 13 
dollar sign($), 13 
double quote (""), 27 
form feed, 27, 306 
function, 63 
hexadecimal bit pattern, 27 
horizontal tab, 27 
intrinsic function, 86, 87 
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Character (continued) 
list, 13 
lowercase, 13 
names, 15 
new line, 27 
nonprintable, 25, 27 
octal bit pattern, 27 
printable, 14 
single quotation mark (’), 6, 25, 27 
tab, 14 
uppercase, 13 
vertical tab, 27 
Character array element, 97 
Character assignment statement, 167 
Character constant 
See also String 
blank, 14, 25 
case sensitivity, 18, 25 
length, 25 
line boundary, 26 
long, 26 
padding, 26 
Character data type 
common block, 183 
list-directed input, 147 
list-directed output, 150 
Character editing, 142 
Character expression, 43, 44 
Character functions, 86, 87 
Character operand, 43, 45 
Character operator, 44 
Character substring 
bounds, 28 
checking, 29 
described, 28 
internal file, 97 
length, 29 
syntax, 28 
Character variable 
common block, 26 
internal file, 97 
length, 25 
Checking 
arguments 
described, 18, 57 
integers, 175 
INTERFACE, 60, 174, 240 
logical, 175 
subroutines, 174 
ranges, 289 


Index 


CLOG, 82 
CLOSE 
asterisk (#) unit, 103 
described, 180 
discarding files, 180 
disconnecting units, 102 
listed, 98 
units 0, 5, 6, *, 181 
Closing 
files, 181 
units 0, 5, 6, *, 181 
cmp, 67, 321 
cmp16, 67, 321 
cmp8, 67, 321 
CMPLX, 59, 68, 69 
Code 
See also Source code 
in-line, 338 
machine, 339 
Coercion. See Conversion 
Collating sequence 
character set, 14 
data-type conversion, 69 
intrinsic functions, 87 
names, 13 
relational expression, 45 
Colon(:) 
editing, described, 130 
nonrepeatable edit descriptor, 130 
Column 
significance, 51 
statement, 157 
Column-major order, 193, 336 
Comma (,) 
edit list, 108 
field delimiter, 128, 134 
Command 
FL, defined, 337 
MSF, 339 
operating system, 257 
Command line 
file names, entering, 249 
options, 285 
Comment line 
described, 51 
free form, 53 
order, 56 
COMMON, 182 
Common block 
blank, initializing, 63 
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Common block (continued) 
character data type, 183 
character variable, 26 
COMMON, 182 
EQUIVALENCE statement, 211 
external name, 32 
name, 16 
named 
block-data subprogram, 172 
DATA statement, 189 
initializing, 63, 171, 189 
length, 172 

NEAR, 35 

COMMQQ, 16 

Comparing. See Expression, comparing 

arithmetic and character; Operand 

’"COMPAT’, 117 

Compatibility with old libraries, 35 

Compatible data type, 166, 273 

Compiland, defined, 336 

Compilation, conditional, 52, 289 

Compilation unit, 61 

Compile time, defined, 336 

Compiler 
defined, 336 
large model, defined, 338 

Complement, logical, 91 

COMPLEX, 24, 185 

Complex 
absolute value, 72 
conjugate, 79 
converting to, 69 
described, 24 
intrinsic function 

described, 79 

result, 66 

square root, 81 

table, 79 
number, defined, 336 
relational expression, 45 
syntax, 24 

Complex data type 
COMPLEX, 185 
list-directed input, 147 

Complex number, 134 

COMPLEX ¥*8, 24 

COMPLEX *16, 24 

Computed GOTO, 221 

Concatenation operator (//), 44 
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Conditional compilation, 52, 289 
CONJG, 79 
Conjugate, complex, 79 
Conjunction operator, 46 
Consecutive operator 
arithmetic, 40 
logical, 47 
Constant 
base 10, 21 
folding, defined, 336 
hexadecimal, 22 
Hollerith, 127 
integer, 21 
naming, 255 
specifying base, 21 
specifying radix, 21 
Continuation line, 52, 538, 157 
CONTINUE, 187 
Control statement, table, 160 
Control, carriage. See Carriage control 
Conversion 
arithmetic operand, 41 
character, 69 
complex, 69 
data type 
assignment, 166 
DATA statement, 189 
intrinsic functions, 67, 68, 70 
statement functions, 273 
subprogram argument, 68 
table, 43 
value arguments, 60 
integer, 69 
intrinsic functions, 70 
real, 69 
Coprocessor, defined, 335 
Correspondence. See Checking 
arguments 
COS, 84, 85 
COSH, 84 
Cosine 
hyperbolic, intrinsic function, 84 
intrinsic function, 84 
Cosine, arc. See Arc cosine 
COTAN, 84, 85 
Cotangent intrinsic function, 84 
Count, iteration, 196 
CSIN, 84 
CSQRT, 80 


D editing, 141 
See also Double-precision real 
editing 
D, real exponent, 24 
DABS, 72 
DACOS, 84, 85 
DASIN, 84, 85 
DATA, 56, 188 
Data 
See also Input/output 
editing, 215 
formatting, 109 
reading, 261 
writing, 279 
Data base, choosing file type, 120 
Data segment, default 
LOCNEAR, 89 
NEAR, 35 
Data type 
abbreviation, table, 67 
arguments 
agreement, 57 
subroutine, 174 
arithmetic operand, 41 
array, 30 
character 
common block, 182 
described, 25 
list-directed input, 150 
list-directed output, 150 
specifying, 177 
compatible, 166, 273 
complex, 24 
conversion 
arithmetic operand, 41, 43 
CHAR, 69 
CMPLX, 69 
DATA statement, 189 
DBLE, 69 
ICHAR, 69 
intrinsic function table, 68 
intrinsic functions, 67, 70 
REAL, 69 
subprogram argument, 68 
value arguments, 60 
declaring, 19 
default, 17, 30, 230 
expression, 59 
function, 17, 18 
generic intrinsic function, 66 
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Data type (continued) 
integer, 21, 238, 239 
intrinsic function, 65 
list, 17, 19 
logical, 25, 246, 247 
real 
described, 22, 23, 24 
DOUBLE PRECISION statement, 
198 
specifying, 264 
size, table, 20 
undeclared, 19 
Data, block. See Block-data 
subprogram 
DATAN, 84, 85 
DATAN2, 84, 85 
dbl, 67, 321 
DBLE, 59, 68, 69 
DCMPLX, 59, 68 
DCONJG, 79 
DCOS, 84, 85 
DCOSH, 84 
DCOTAN, 84 
DDIM, 74, 75 
$DEBUG 
assigned GOTO statement, 219 
debug lines, 52 
described, 289 
high-precision arithmetic, 42 
overflow, 42 
substring checking, 29 
Debug line, 52, 290 
Debugging, 289 
Decimal point, input, 134 
$DECLARE, 17, 291 
Declaration, dimension, 19 
Declarator 
array. See Array declarator | 
dimension. See Dimension declarator 
Declaring intrinsic function, 242 
DECODE, 123 
Default 
array data type, 30 
base, 21 
blank interpretation, 132 
block-data subprogram name, 171 
C integer size, 34 
character length, 178 
character substring bounds, 28 
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data segment 

LOCNEAR, 89 

NEAR, 35 
data type, 17, 18, 230 
FORTRAN integer size, 34 
INTEGER size, 21 
lower dimension bound, 191- 
metacommands, table, 286 
name, main program, 62, 260 
optional-plus editing, 129 
page size, 307 
return value, 274 


‘DELETE’, 181 
Deleting 
record, 105 


scratch file, 181 
"DENYNONE’, 117 
"DENYRD’, 117 
‘(DENYRW’, 117 
‘(DENYWR,, 117 
Descriptions, editing, 108 
Descriptor, edit. See Edit descriptor 
Device 
external file, 97 
sequential, 105 
unit, associating with, 248 
DEXP, 82 
Difference, positive. See Positive 
difference intrinsic function 
Digits, 13 
DIM, 74, 75 
DIMAG, 79 
DIMENSION, 191 
Dimension bound, 191, 192 
Dimension declaration, 19 
Dimension declarator, 191, 336 
Dimensions, array, 30, 191 
DINT, 70 
Direct access 
described, 105 
file, 105, 106, 205, 243 
operation, on sequential file, 105 
record, 243 
Directory 
metacommands, 288 
statements, 162 
Discarding files, 180 
Disconnecting units, 102, 180 
Disjunction, inclusive, 46 
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Division 
by zero, 40, 289, 290 
integer, 40 
DLOG, 82 
DLOG10, 82 
DMAX1, 59, 76 
DMIN1, 59, 76 
DMOD, 74 
DNINT, 70, 71 
DO, 195, 292 
DO list, implied. See Implied-DO list 
DO loop 
extended range, 196 
iteration count, 196 
range, 195, 196 
terminal statement, 195 
DO variable, modifying, 196 
$DO66 metacommand, 56, 197, 292 
Dollar sign ($), 13 
Domain, defined, 336 
Dots (...), 7 
DOUBLE PRECISION, 23, 198 
See also Real data type 
Double precision 
defined, 337 
product, 77 
real editing, 141 
Double-quote character (*'), 27 
DPROD, 77 
DREAL, 59, 68 
DSIGN, 72 
DSIN, 84, 85 
DSINH, 84 
DSQRT, 80 
DTAN, 84, 85 
DTANH, 84 
Dummy argument, 337 
See also Formal] argument 


E editing, 139 
See also Real editing 
EK, exponent, 23 
Edit descriptor 
backslash (\), 125 
nonrepeatable 
apostrophe editing, 127 
backslash editing, 130 
blank interpretation, 132 
colon, 130 


nonrepeatable (continued) 
described, 126 
Hollerith editing, 127 
optional-plus editing, 129 . 
positional editing, 128, 129 
scale-factor editing, 131 
slash editing, 130 
table, 126 
numeric, 133 
repeatable 
character editing, 142 
described, 133 
double-precision reai, 141 
hexadecimal editing, 135 
integer editing, 135 
logical editing, 142 
real editing, 137, 139, 140 
table, 215 
Edit list, 100, 107, 108 
Editing 
apostrophe, 127 
backslash, 130 
character, 142 
complex numbers, 134 
data, 215 
double-precision real, 141 
hexadecimal, 135 
Hollerith, 111, 127 
integers, 135 
logical, 142 
optional plus, 129 
positional, 128, 129 
real, 137, 139, 140 
scale factor, 131 
slash, 130 
Editing descriptions, 108 
Element, array. See Array element 
Ellipsis dots (...), 7 
ELSE, 200 
ELSE block, 200 
ELSEIF, 201 
ELSEIF block, 201 
ENCODE, 123 
END, 56, 64, 203 
End-of-file 
handling, 114 
intrinsic function, 87, 88, 99 
record 
finding, 87 
writing, 204 


Index 


KEnd-of-record, suppressing, 130 
END= option, 114 
ENDFILE, 98, 204 
ENDIF, 206 
ENTRY, 207 
EOF, 59, 87, 88 
.EQ. operator, 45 
.EQV. operator, 46 
Equal-to operator, 45 
EQUIVALENCE, 210 
Equivalence operator, 46 
ERR = option, 101, 114 
Error handling 
$DEBUG, 289 
floating point, 290 
input/output statements, 114 
READ statement, 114 
run time, 289 
Escape sequence, C string, 27 
Evaluating functions, 63 
Even address, 183, 211 
Exception, floating point, 290 
Excess-64, defined, 337 
Excess-127, defined, 337 
Exclusive-or intrinsic function, 91 
Executable program, defined, 337 
Executable statement 
block-data subprogram, 56 
described, 157 
order, 56 
Executing function references, 63 
Execution, 62, 257 
EXP, 82 
Exponent 
double-precision real editing, 141 
intrinsic function 
described, 82 
table, 82 
real, 23 
real data type, 24 
real editing, 137, 139 
table, 139 
Exponentiation, 40 
Expression 
See also Operation; Operator 
actual argument, 58 
arithmetic, 39 
array element, 38 
assigning to variable or array 
element, 166 
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Expression (continued) 
character, 43 


comparing arithmetic and character, 
44 


data type, 59 
described, 38 
INT2 result, 59 
INT4 result, 59 
integer operand, 42 
logical, 46, 47 
relational, 44, 45 
statement, 38 
subscript, 58 
types, 38 
undefined array element, 38 
undefined function, 38 
undefined variable, 38 
Extended range 
DO loop, 196 
DO statements, 292 
Extensions to ANSI standard. See 
ANSI standard 
EXTERN, 34 
extern, 213 
EXTERNAL, 59, 213 
External file, 97 
External function 
described, 64 
entry points, 207 
identifying, 213 
External name, 32, 33 
External reference 
defined, 337 
intrinsic functions, 65 
External subroutine, identifying, 213 
External unit, preconnected, 103 
See also Unit 


F editing, 137 
See also Rea] editing 
.FALSE., 25 
FAR, 34 
Far call, defined, 337 
Far data pointer, 89 
Far function pointer, 89 
Field delimiter, comma, 128, 134 
Field position editing. See Positional 
editing 
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File 
access 
described, 105 
networking, 117 
sequential, 105 
binary 
direct, 106 
reading, 263 
record boundary, 107 
choosing type, 119, 120 
closing, 181 
direct access 
deleting record, 105 
described, 105, 106 
ENDFILE, 205 
locking, 243 
discarding, 180 
end of, 88 
See also End-of-File 
external, 97 
formatted, 105 
included, 298 
inquire by, 233 
internal 
access, 105 
described, 97, 122 
position, 125 
rules, 122 
sequential, 105 
name 
blank, 249 
described, 101 
prompting for, 249 
reading from command line, 249 
named, inquiring about, 232 
object, 340 
opening, 248 
overview, 97 
position 
BACKSPACE, 169 
described, 122 
ENDFILE, 205 
internal file, 123 
rewinding, 268 
writing, 281 
rewinding, 268 
scratch, 181, 249 
sequential, 281 
sharing, 117 
source, 341 


File (continued) 
structure, 106, 107 
type, 97 
unopened 
inquiring about, 236 
reading, 262 
writing, 279 
FILE = option, 101 
FL command, defined, 337 
FLOAT, 59, 68 
SFLOATCALLS, 56, 294 
Floating point 
exception handling, 290 
in-line instructions, 294 
subroutine calls, 294 
FMT= option, 101, 109 
FORM = option, 101, 106 
Form-feed character, 27, 306 
Formal argument 
alternate return, 59 
array, 59 
assigning a value, 57 
associated, 57 
asterisk (*), 175 
C attribute, 34 


corresponding actual argument, list, 


58 
defined, 337 
described, 57 
different number than actual: 
arguments, 37 
EXTERN, 34 
EXTERNAL, 59 
FAR, 34 
function, 59 
HUGE, 34 
intrinsic function, 59, 66 
$LARGE, 34 
number, 57, 174 
subroutine, 59 
variable, 58 
FORMAT, 56, 215 
Format | 
free form, 53, 296 
records, 98 


Format control, terminating, 130 


Format label, 164 

Format specifier 
array name, 111 
asterisk (*), 111 


Index 


Format specifier (continued) 
character array element, 112 
character constant, 127 
character expression, 110 
character variable, 110 
described, 109 
formatted input/output, 125 
integer variable name, 110 


interaction with input/output list, 


143 
list-directed input/output, 111 
statement label, 109 
Formatted file, 105, 106 
Formatted input/output, 124, 125 
Formatted record, 106 
Formatting data, 109 
FORTRAN 66 
DECODE statement, 123 
DO statements, 292 
ENCODE statement, 123 
EQUIVALENCE statement, 212 
FORTRAN 77 standard. See ANSI 
standard 
FORTRAN, books on, 9 
$FREEFORM 
$DEBUG, used with, 290 
described, 296 
format, 53 
order, 56 
Free-form source code, 53 
FUNCTION 
checking arguments, 18 
described, 216 
external function, 64 
order, 56 
overrides IMPLICIT, 231 
Function 
actual argument, 59 
argument, 64 
character, 63 
checking arguments, 18 
default data type, 17, 18 
described, 63 
expression, used in, 38 
external 
described, 64 
entry points, 207 
identifying, 213 
formal argument, 59 
IGETER, 333 
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Function (continued) intrinsic (continued) 

intrinsic DABS, 72 
See also specific functions DACOS, 84, 85 
abbreviations, 66 DASIN, 8&4, 85 
ABS, 72 data type, 65 
absolute value, 72 data-type conversion, 68, 70 
ACOS, 84, 85 DATAN, 84, 85 
address, 89 DATAN2, 84, 85 
AIMAG, 79 DBLE, 68, 69 
AINT, 70 DCMPLX, 68 
ALOG, 82 DCONJG, 79 
ALOG10, 82 DCOS, 84, 85 
AMAXO, 76 DCOSH, 84 
AMAXI1, 76 DCOTAN, 84 
AMINO, 76 DDIM, 74, 75 
AMIN1, 76 declaring, 242 
AMOD, 74 described, 65 
ANINT, 70, 71 DEXP, 82 
arguments, 66, 81 DIM, 74, 75 
arithmetic shift, 91 DIMAG, 79 
ASIN, 84, 85 DINT, 70 
ATAN, 84, 85 DLOG, 82 
ATAN2, 84, 85 DLOG10, 82 
base-10 logarithm, 82 DMAX1, 76 
bit change, 91 DMIN1, 76 
bit clear, 91 DMOD, 74 
bit manipulation, 90 DNINT, 70, 71 
bit set, 91 double-precision product, 77 
bit test, 91 DPROD, 77 
BTEST, 90 DREAL, 68 
CABS, 72 DSIGN, 72 
CCOS, 84 DSIN, 84, 85 
CDABS, 72 DSINH, 84 
CDCOS, 84 DSQRT, 80 
CDEXP, 82 DTAN, 84, 85 
CDLOG, 82 DTANH, 84 
CDSIN, 84 end-of-file, 87, 88, 99 
CDSQRT, 80 EOP, 87 
CEXP, 82 exclusive or, 91 
CHAR, 68, 69 EXP, 82 
character functions, 86, 87 exponent, 82 
CLOG, 82 EXTERNAL statement, 213 
CMPLX, 68, 69 FLOAT, 68 
complex functions, 66, 78, 79 formal argument, 59, 66 
CONJG, 79 generic, 66 
COS, 84, 85 HFIX, 68 
COSH, 84 IABS, 72 
COTAN, 84, 85 IAND, 90 
CSIN, 84 | IBCHNG, 90 
CSQRT, 80 IBCLR, 90 
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intrinsic (continued) 


IBSET, 90 
ICHAR, 68, 69 
IDIM, 74, 75 
IDINT, 68 
IDNINT, 70, 71 
TEOR, 90 
IFTX, 68 
IMAG, 79 
inclusive or, 90 
INDEX, 86, 87 
input/output, 99 
INT, 68 

INT1, 68 
INT2, 68, 175 
INT4, 68, 175 
INTC, 68 

IOR, 90 

ISHA, 90 
ISHC, 90 
ISHFT, 90 
ISHL, 90 
ISIGN, 72 
JFIX, 68 | 
LEN, 86, 87 
LGE, 86, 87 
LGT, 86, 87 
LLE, 86, 87 
LLT, 86, 87 
LOC, 89 
LOCFAR, 89 
LOCNEAR, 89 
LOG, 82 
LOG1O0, 82 
logarithm, 82 


logical complement, 91 


logical product, 91 
logical shift, 90 
MAX, 76 

MAXO, 76 

MAX1, 76 
maximum, 76° 
MIN, 76 

MINO, 76 

MIN1, 76 
minimum, 76 
MOD, 74 

natural logarithm, 82 
NINT, 70, 71 
NOT, 90 
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intrinsic (continued) 
NOT, 90 , 
out-of-range argument, 66 
positive difference, 74, 75 
REAL, 68, 69, 263 
remainder, 74 
rotate, 91 
rounding, 70 
SIGN, 72 
sign transfer, 72 
SIN, 84, 85 
SINH, 84 — 
SNGL, 68 
specific, 66 
SQRT, 80 
square root, 80, 81 
table, 321 
TAN, 84, 85 
TANH, 84 
trigonometric, 83, 85 
truncation, 70 
type conversion, 67 
type statement, 65 
undefined argument, 66 
name, 16, 217 
referencing, 63 
SETDAT, 331 
SETTIM, 331 
statement, 65 
statement function, described, 272 
summary, 61 
time, date, 331 
types, listed, 63 
undefined, 38 


G edit descriptor, table, 140 
G editing, 140 
See also Real editing 

GE edit descriptor, 140 
.GE. operator, 45 
gen, 321 
Generic intrinsic function, 66 
GETDAT subroutine, 331 
GETTIM subroutine, 331 
Global name 

described, 16 

function name, 217 

_main, 62 
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GOTO 
assigned 
described, 219 
testing, 289 
computed, 221 
unconditional, 223 
Greater-than operator, 45 
Greater-than-or-equal-to operator, 45 
.GT. operator, 45 


H editing. See Hollerith editing 
Hexadecimal 

constants, 22 

defined, 337 

editing, 135 

specifying characters, 27 
HFIX, 59, 68 
High-order bit, 337 
High-order byte, 339 
High-precision arithmetic, 42 
Hollerith 

constant, 13, 14, 127 

editing, 111, 127 

field. See Hollerith constant 

string. See Hollerith constant 
Horizontal tab character, 27 
HUGE 

arrays, 36 

described, 34 

Microsoft C, 34 

Microsoft Pascal, 34 
Huge, memory model, 302, 338 
Hyperbolic cosine intrinsic function, 84 
Hyperbolic sine intrinsic function, 84 
Hyperbolic tangent intrinsic function, 

84 

Hyphen (-), 39 


I editing, 135 
See also Integer, editing 
IABS, 72 
IAND, 90 
IBCHNG, 90 
IBCLR, 90 
IBSET, 90 
ICHAR, 59, 68, 69 
ICLRER subroutine, 333 
IDIM, 74, 75 
IDINT, 59, 68 
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IDNINT, 70, 71 
IEEE 
floating-point exceptions, 290 
not a number, defined, 339 
IEOR, 90 
IF 
arithmetic, 224 
block 
described, 227 
DO loop, used within, 196 
terminating, 206 
logical 
described, 226 


terminal statement, used as, 195 


IF level, 228 
IF THEN ELSE, 227 
IFTX, 59, 68 
IGETER function, 333 
Illegal arithmetic operation, 40 
IMAG, 59, 79 
Imaginary number 
intrinsic function, 79 
representing, 24 
IMPLICIT 
default data type, 18 
described, 230 
intrinsic function, 65 
order, 56 
Implicit open 
closed unit, 103 
file name, 102 
reading, 262 
unopened files, 254 
writing, 279 
Implied-DO list 
described, 189 
input/output list, 113 
In-line code, defined, 338 
$INCLUDE, 298 
Inclusive disjunction operator, 46 
Inclusive or intrinsic function, 90 
INDEX, 86, 87 
Initial letter, default data type, 17 
Initial line 
described, 52 
free form, 53 
statement, 157 
Initialize 
blank common block, 63 
character data type, 178 


Initialize (continued) 
complex data type, 186 
DATA, 188 
double-precision real data type, 198 
integer, 239 
logical, 247 
named common block, 63, 171, 189 
real data type, 265 
Input 
See also Input/output 
decimal points, 134 
defined, 98 
list directed, 147 
numeric, 14 
Input/output 
See also Input; Output 
binary (one-byte) interface, 121 
blanks, 133 
buffer size, 114 
complex numbers, 134 
fast, 121 
formatted 
carriage control, 124 
described, 125 
intrinsic function, 99 
list directed 
carriage control, 125 
described, 146 
overview, 97 
random access, 120 
statements, 98, 99, 100 
terminal, defined, 341 
Input/output list 
array element name, 112 
array name, 113 
character substring name, 112 
defined, 338 
described, 112 
empty, 112 
error during READ, 114 
expression, 113 
format, interaction with, 143 
implied-DO list, 113 
listed, 100 
variable name, 112 
Input/output statement 
end-of-file handling, 114 
error handling, 114 
option 
BLOCKSIZE=, 114 


Index 


option (continued) 
edit list, 107 


END=, 114 
ERR=, 114 
FMT =, 109 
FORM =, 106 


input/output list, 112 
inquiring about, 232 
IOSTAT =, 114 
MODE =, 117 
REC =, 107 
SHARE =, 117 
table, 161 
INQUIRE, 98, 232 
Inquire-by-file, 233 
Inquire-by-unit, 233 
INT, 59, 68 
int, 67, 321 
INT1, 59, 68 
intl (abbreviation), 67, 321 
INT2 
16-bit arithmetic, 68 
described, 68 
formal argument, 59 
listed, 68 
passing arguments, 175 
result, 59 
int2 (abbreviation), 67, 321 
INT4 
32-bit arithmetic, 68 
described, 68 
formal argument, 59 
listed, 68 
passing arguments, 175 
result, 59 
int4 (abbreviation), 67, 321 — 
INTC, 59, 68 
INTEGER, 238 
See also Integer 
Integer 
argument, 59, 60 
arithmetic, testing, 289 
C attribute, 34 
checking arguments, 189 
constants, default storage size, 21 
converting to, 68, 69 
data types, 21 
division, 40 
editing, 135 
generic intrinsic function, 66 
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Integer (continued) 
initializing, 239 
list-directed output, 150 
operand, 42 
out of range, 22 
range, 21 
size 
default, C, 34 
default, FORTRAN, 34 
specifying, 238 | 
syntax, 21 
table, 21 
INTEGER #1, 165 
See also Integer 
INTEGER *2 
See also Integer 
converting to, 68 
described, 21 
INTEGER +4 
See also Integer 
converting to, 68 
described, 21 
INTERFACE 
checking arguments, 18, 57, 60, 240 
checking subroutine arguments, 174 
described, 240 
order, 56 
Interface, attribute in, 240 
Internal file 
described, 97, 122 
list-directed input/output, 146 
position, 123 
rules, 122 
sequential, 105 
INTRINSIC, 59, 65, 242 
Intrinsic function. See Function, 
intrinsic; Specific functions 
Invalid operation, 290 
IOR, 90 
IOSTAT = option, 100, 114 
ISHA, 90 
ISHC, 90 
ISHFT, 90 
ISHL, 90 
ISIGN, 72 
Italics, 6 
Iteration count, 196 


JFIX, 59, 68 


360 


"KEEP’, 181 
Keyboard 
external file, 97 
sequential device, 105 
unit *, 181 
unit five, 181 
unit specifier, 103 
unit zero, 181 
Keyword 
defined, 338 
FORTRAN, 5 
languages, other, 5 
reserved, 15 


L editing, 142 | 
See also Logical editing 
Label 
See also Statement label 
assigning to integer variable, 164 
format specifier, 109 
number, 164 
statement 
alternate return, 175 
described, 53 
FORMAT statements, 215 
free form, 53 | 
undefined variable, 39 
value, 164 : 
Language, assembly. See Assembly 
language 
$LARGE 
arrays, 36 
described, 301 
formal argument, 34 
order, 56 
variables, 36 
Large model compiler, defined, 338 
Large model, defined, 338 
Large programs, 61 
.LE. operator, 45 
Least-significant bit, defined, 339 
Least-significant byte, defined, 338 
LEN, 86, 87 
Length 
character, 25, 177, 178 
common block, 183, 212 
DATA statement elements, 189 
line, list-directed output, 149 
listings, 307 


Length (continued) 
named common block, 172 
names, 15, 315 
record 
direct-access file, 105 
internal file, 122 
specifying with asterisk, 178 
substring, 29 
Less than operator, 45 
Less than or equal to operator, 45 
Letter, initial, 17, 230 
Level, IF. See IF level 
LGE, 59, 86, 87 
LGT, 59, 86, 87 
Library 
defined, 338 
run time, defined, 340 
version 3.2, compiled with, 35 
Limit 
array dimensions, 191 
array size, 30 
CHAR argument, 69 
character length, 25 
continuation lines, 52 
ENTRY statements, 208 
ICHAR, 69 
name length, 15 
nested parentheses edit list, 108 
nesting included files, 298 
number of main programs, 62 
Line 
boundary, character constant, 25 
comment, 51, 53, 56 
continuation, 52, 53, 157 
debug, 52 
described, 51 
initial 
described, 52 
free form, 53 
statement, 157 
length, list-directed output, 149 
metacommand, 52 
SLINESIZE, 303 
Link time, defined, 338 
Linking, defined, 339 
$LIST, 304 
List, edit. See Edit list 


List, implied DO. See Implied-DO list 


List, input/output, 338 
See also Input/output list 


Index 


List-directed formatting, internal file, 


122 
List-directed input/output 
carriage control, 125 
described, 146 
format specifier, 111 
input, 147, 149 
output, 149, 150 
Listing 
length, 307 
new page, 306 
starting, 304 
stopping, 304 
subtitle, 312 
title, 314 
width, 303 
Literal. See String 
LLE, 59, 86, 87 
LLT, 59, 86, 87 
LOC, 59, 89 
Local name, 17, 189 
LOCFAR, 59, 89 
"LOCK’, 244 
LOCKING 
described, 243 
listed, 98 
REC = option, 107 
LOCKMODE =, 243 
LOCNEAR, 59, 89 
LOG, 59, 82 
log, 67, 321 
logl, 67, 321 
log2, 67, 321 
log4, 67, 321 
LOG10, 59, 82 
Logarithm 
base 10, 82 
intrinsic function, 82 
natural, 82 
LOGICAL, 246 
See also Logical 
Logical 
described, 25 
relational expression, result of, 44 
SSTORAGE, 25 
Logical argument, checking, 175 
Logical assignment statement, 166 


Logical complement intrinsic function, 
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Logical data type Mantissa, defined, 339 
initializing, 247 Manual, organization of, 3 
list-directed input, 147 Map, memory, defined, 339 
list-directed output, 150 MAX, 59, 76 
specifying, 246 MAXO, 59, 76 

Logical editing, 142 MAX1 intrinsic function, 59, 76 

Logical expression, 46, 47 Maximum intrinsic function, 76 

Logical IF, 195, 226 Medium model, defined, 339 

Logical operand, 46 Memory 

Logical operator allocating with $STORAGE, 308 
.AND., 46 sharing 
binary, 46 COMMON, 182 
consecutive, 47 EQUIVALENCE, 210 
EQV., 46 Memory allocation. See Size 
NEQV., 46 Memory map, defined, 339 
.NOT., 46 Memory model 
.OR., 46 huge, 302, 338 
precedence, 46 large, defined, 338 
table, 46 medium, defined, 339 
unary, 46 small, defined, 341 

Logical product intrinsic function, 91 $MESSAGE, 305 

Logical shift intrinsic function, 90 Message, warning, 17 

LOGICAL *1. See Logical Metacommand 

LOGICAL *2. See Logical $DEBUG 

LOGICAL #4. See Logical assigned GOTO statement, 219 

Long address, 35, 389 | debug lines, 52 

Long arithmetic. See 32-bit arithmetic described, 289 

Long call, defined, 339 high-precision arithmetic, 42 

Long character constant, 25 overflow, 42 

Loop, DO. See DO loop prohibited arithmetic operation, 40 

Low-order byte, defined, 338 substring checking, 29 

Lower dimension bound, 191 $DECLARE, 17, 291 

Lowercase described, 285 
character constants, 25 directory, format, 288 
character set, 13 $DO66 
keywords, notation, 5 described, 292 
letter. See Case sensitivity; DO loop, 197 

Uppercase order, 56 
.LT. operator, 45 SFLOATCALLS, 56 
$FREEFORM 
$DEBUG, used with, 290 

Machine address. See Address described, 296 

Machine code, defined, 339 format, 53 

_main, 16, 62, 260 order, 56 

Main program generic intrinsic function, 66 
default name, 62 SINCLUDE, 298 
described, 62 $LARGE 
identifying, 260 argument, 34 
summary, 61 arrays, 36 
terminating, 203 described, 301 
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$LARGE (continued) 
order, 56 
variables, 36 
line, 52 
$LINESIZE, 303 
$LIST, 304 
SMESSAGE, 305 
S$NODEBUG, 289 
SNODECLARE, 291 
S$NOFLOATCALLS, 56 
S$NOFREEFORM, 56, 296 
SNOLIST, 304 
S$NOTLARGE, 56, 301 
SBNOTRUNCATE, 315 
$NOTSTRICT, 310 
order, 54, 55, 56 
$PAGESIZE, 307 
SSTORAGE 
arithmetic precision, 42 — 
described, 308 
expression data type, 59 
expression with integer operand, 
42 
integer arguments, 175 
integer constants, 21 
logical arguments, 175 
logical constants, 25 
memory allocation, 21 
order, 56 
$STRICT 
array dimensions, 30 
associating elements, 211 
character assignment statement, 
167 
character substrings, 29 
common blocks, 183 
comparing arithmetic and 
character variables, 44 
continuation line, 52 
DATA statements, 189 
described, 310 


EQUIVALENCE statement, 212 


$SUBTITLE, 312 

table, 286 

$STITLE, 314 

$TRUNCATE, 315 
Microsoft C 

accessing, 34 

arrays, 37 

calling conventions, 33 


Index 


Microsoft C (continued) 

constant, defined, 336 

far data pointer, 89 

far function pointer, 89 

HUGE, 34 

near pointer, 89 

performance, 61 

stack, 33 

stream file, 121 

struct, 37 
Microsoft Pascal 

accessing, 34 

adr type, 89 

ads type, 89 

adsfunc type, 89 

adsproc type, 89 

calling conventions, 33 

extern, 213 

HUGE, 34 

performance, 61 

stack, 33 

subprograms, 36 

var parameter, 35 
MIN intrinsic function, 59, 76 
MINO intrinsic function, 59, 76 
MINI! intrinsic function, 59, 76 
Minimum intrinsic function, 76 
Minus sign (—), 39 
MOD, 74 
MODE = option, 101, 117 
Model 

huge, 338 

large, 338 

medium, 339 

small, 341 
Modifying DO variable, 196 
Most-significant bit, defined, 337 
Most-significant byte, defined, 339 
MS-DOS, 244 : 

See Operating system 
Multitasking 

locking files, 244 

locking records, 244 


Name 
argument, 17 
array, 17 
blanks, 15 
BLKDQQ, 16 
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Name (continued) 
C attribute, 33 
characters, 15 
collating, 13 
common block, 16 
COMMQQ, 16 
constants, 255 
default data type, 17 
default, main program, 62 
defining default data type, 230 
described, 15 
external 
ALIAS, 32 
C attribute, 33 
file 
blank, 249 
described, 101 
prompting for, 249 
reading from command line, 249 
function, 217 
global 
described, 16 
_main, 62 
length, 15 
local, 17 
_main, 16 
main program, 260 
program, 16 
reserved, 15, 16 
scope, 16 
statement function, 17 
subroutine, 16 
truncating, 315 
undeclared, 17 
variable, 17 
Named common block 
block-data subprogram, 172 
DATA statement, 189 
initializing, 63, 171, 189 
length, 172 
NAN (not a number), defined, 339 
Natural logarithm intrinsic function, 
82 
"NBLCK’, 244 
"NBRLCK’, 244 
.NE. operator, 45 
NEAR, 35 
Near call, defined, 340 
Near pointer, Microsoft C, 89 
Negation operator, 46 
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.NEQV. operator, 46 
Nesting 

defined, 298 

parentheses, 108 
Networking 

file sharing, 117 

locking files and records, 243 
New-line character, 27 
NINT, 70, 71 
S$NODEBUG, 289 
$NODECLARE, 291 


| SNOFLOATCALLS, 56, 294 


Non-FORTRAN files, 121 
SNOFREEFORM, 56, 296 
$NOLIST, 304 
Nonequivalence operator, 46 
Nonexclusive or, 47 
Nonexecutable statement, 157 
Nonprintable character, 25, 27 
Nonrepeatable edit descriptor 
apostrophe editing, 127 
backslash editing, 130 
blank interpretation, 132 
colon, 130 
described, 126 
Hollerith editing, 127 
optional-plus editing, 129 
positional editing, 128, 129 
scale-factor editing, 131 
slash editing, 130 
table, 126 
NOT, 90 
.NOT. operator, 46 ; 
Not a Number (NAN), defined, 339 
Not equal to operator, 45 
Notation 
apostrophe, 6, 25 
described, 4 
SNOTLARGE, 56, 301 
SNOTRUNCATE, 15, 315 
$NOTSTRICT, 310 
Null value 
C string, 25 
list-directed input, 148 
list-directed output, 151 
Number ral 
argument, 172 
complex, editing, 134 
record, 105, 107 
Numeric edit descriptor, 133 


Numeric input field, 14 


Object file, defined, 340 
Octal, 27 
Odd address, 211 
Offset, 35, 340 
One, carriage-control character, 124 
One-byte interface, 121 
OPEN, 98, 102, 105, 248 
Open, implicit 
closed unit, 103 
file name, 102 
reading, 262 
writing, 279 
Opening 
asterisk unit, 254 
file, 247 
implicitly, 254 
scratch file, 249 
Operand 
arithmetic 
list, 39 
type conversion, 41 
type conversion table, 43 
character 
list, 43 
relational expression, 45 
complex, 45 
described, 38 
integer, 42 
logical, 46 
relational, precedence, 45 
Operating system 
See also MS-DOS 
commands, 257 
return value, 274 
Operation 
See also Operator 
arithmetic 
precedence, 40 
prohibited, 40 
logical, 46 
precedence, 48 
Operator 
addition (+), 39 
arithmetic, table, 39 
binary 
arithmetic, 39 
logical, 46 


Index 


binary (continued) 

relational, 45 
character, 44 
concatenation (//), 44 
consecutive 

arithmetic, 40 

logical, 47 
described, 38 
division (/), 39 
exponentiation (* #), 39 
logical 

AND., 46 

-EQV., 46 

NEQV., 46 

.NOT., 46 

-OR., 46 

table, 45 
multiplication (*), 39 
precedence, 48 
relational 

.EQ., 45 

.GE., 45 

.GT., 45 

.LE., 45 

.LT., 45 

.NE., 45 

table, 45 
subtraction (—), 39 
unary 

arithmetic, 39 

logical, 46 


Optimize, defined, 340 
Optimizing, 42 
Option, input/output statement 


ACCESS =, 100, 105 
BLOCKSIZE=, 114 
command line, 285 
described, 99 

edit list, 100, 107 


END=, 114 

ERR=, 100, 114 
FILE=, 100, 101 
FMT =, 100, 109 


FORM =, 100, 106 
input/output list, 100, 112 
inquiring about, 232 
IOSTAT =, 100, 114 
LOCKMODE =, 243 
MODE =, 100, 117 

REC =, 100, 107 
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Option, input/output statement 
(continued) 
RECL=, 105 
SHARE =, 100, 117 
STATUS =, 180, 181 
UNIT=, 100, 102 
Optional-plus editing, 129 
Or 
exclusive, 91 
inclusive, 90 
nonexclusive, 47 
.OR. operator, 46 
Order 
column major, 193, 336 
metacommands, 54, 56 
See also Metacommand, order 
statements, 54, 56 
See also Statement, order 
Out of range, intrinsic-function 
argument, 66 
Output 
See also Input/output 
asterisks, 134 
defined, 98 
list directed, 149 
plus signs, 129 
screen, writing to, 259 
suppressing, 130 
— writing, 279 
Overflow 
$DEBUG, 42 
IEEE, 290 
testing for, 289 
Overwriting record, 105 


P editing, 131 
See also Scale-factor editing 
Padding 
character assignment statements, 
167 
character constant, 26 
internal file records, 123 
records, 105 
$PAGE, 306 
$PAGESIZE, 307 
PARAMETER, 56, 255 
Parameter. See Argument 
Parentheses 
control precedence, 40 
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Parentheses (continued) 
edit list, 108 
PASCAL, 36 
Pascal. See Microsoft Pascal 
Pass, defined, 340 
Passing by reference 
default, 57 
REFERENCE, 36 
Passing by value, 33, 36, 60 
Passing integer argument, 59 
PAUSE, 257 
Placeholders, 6 
PLOSS, defined, 340 
Plus sign (+) 
addition operator, 39 
carriage-control character, 124 
optional, 129 
Pointer 
far, 89 
near, 89 
Position in a file 
BACKSPACE, 169 
described, 122 
ENDFILE, after, 205 
rewinding, 268 
writing, 281 
Positional editing, 128, 129 
Positioning, next record, 132 
Positive difference intrinsic function, 
74, 75 
Precedence 
arithmetic operation, 40 
logical operation, 46 
metacommands. See Metacommand, 
order 
operations, 48 
operators, 48 
parentheses, 40 
relational operand, 45 
statements. See Statement, order 
Precision 
See also Storage size, integer 
constant 
arithmetic, 42 
IEEE, 290 
integer constant, 21 
real, 22 
Preconnected units 
described, 102, 1038 
opening, 254 


Preconnected units (continued) 
reconnecting, 103, 254 
Principal value, 66 
PRINT, 98, 259 
Printable character, 14 
Printer 
external file, 97 
sequential device, 105 
Procedure 
See also Function; Subroutine 
defined, 61 
external, 65 
Product 
‘double precision, 77 
logical, 91 
PROGRAM 
described, 260 
main program, 62 
order, 56 
Program 
execution, start, 62 
large, 61 
main 
default name, 62 
described, 62 
identifying, 260 
summary, 61 
terminating, 203 
name, 16 
structured, 61 
terminating, 274 
Program unit 
defined, 340 
last statement, 203 
list, 61 
main program, 260 
subroutine, 276 
Prohibited arithmetic operation, 40 
Prompt 
file name, 249 
PAUSE, 257 
Prompting to the screen, 130 


Quotation mark, single (’), 6, 25 


Radian, 85 
' Radix 
specifying, 21 


Index 


Random access, 120 
See also Direct access 
Range 
assignment, 289 
ATAN2 result, 85 
DATAN2 result, 85 
DO loop, 195, 196 
extended 
DO loop, 196 
DO statements, 292 
implied-DO list, 190 
integer, 21, 22 
real, 22 
substring, checking, 289 
wide, 140 
Range, out of. See Out of range, 
intrinsic function agreement 
Rank, arithmetic operand, 41 
READ, 98, 107, 114, 261 
"READ’, 117 
Reading 
binary file, 263 
direct-access file, 106 
non-FORTRAN files, 121 
unopened file, 262 
"READWRITE’, 117 
REAL, 59, 68, 69, 264 
real, 67, 321 
Real data type 
See also DOUBLE PRECISION 
converting to, 69 
described, 22, 23 
DOUBLE PRECISION statement, 
198 : 
exponent, 23, 24 
initializing, 265 
list-directed input, 147 
list-directed output, 150 
precision, 22 
range, 22 
significant digits, 22, 23 
specifying, 264 
syntax, 23 
Real editing, 137, 139, 140, 141 
Real number, defined, 341 
real4 (abbreviation), 67, 321 
REC = option, 100, 107 
RECL= option, 105 
Reconnecting 
preconnected units, 103, 254 
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Reconnecting (continued) 
units, 181 
Record 
binary file, 107 
described, 98 
direct access 
deleting, 105 
length, 105 
locking, 243 
number, 105 
order, 105 
reading, 106 
writing, 106 
end-of-file 
finding, 88 
writing, 204 
formatted, 106 
internal file, 122 
multiple, 105 
number, 105, 107 
overwriting, direct-access file, 105 
padding, 105, 123 
positioning to next, 130 
unformatted, 106 
Recursion 
ENTRY, 208 
FUNCTION, 218 
statement functions, 273 
subroutine calls, 174 
REFERENCE 
described, 36 
var parameter, 35 
Reference 
passing by 
default, 57 
REFERENCE, 36 
recursive, 208, 218, 273 
Referencing 
array element, 30 
character function, 63 
function, 63 
Relational expression, 44, 45 
Relational operand, precedence, 45 
Relational operator 
binary, 45 
.EQ., 45 
.GE., 45 
.GT., 45 
.LE., 45 
.LT., 45 
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Relational operator (continued) 
.NE., 45 
table, 45 
Relocatable, defined, 340 
Remainder intrinsic function, 74 
Repeatable edit descriptor 
character editing, 142 
described, 133 
double-precision real editing, 141 
G, 140 
hexadecimal editing, 135 
integer editing, 135 
logical editing, 142 
real editing, 137, 189, 140 
table, 215 
Reserved names, 15 
RETURN 
block-data subprogram, 56 
described, 266 
Return specifier, alternate. See 
Alternate-return specifier 
Return value, 274 
See also Algorithm 
Return, alternate, 64, 175, 217 
See also Alternate return 
REWIND, 98, 268 
"RLCK’, 244 | 
Root, square. See Square root intrinsic 
functions 
Rotate intrinsic function, 91 
Rounding intrinsic function, 70 
Rule, metacommand order, 56 
Rule, statement order, 56 
Run time 
defined, 340 
error handling, 289 
library, defined, 340 


S editing, 129 

See also Optional-plus editing 
SAVE, 270 
Scale-factor editing, 131 
Scope of name, 16 
Scratch file 

deleting, 181 

name, 102 

opening, 249 
Screen 

external file, 97 


Screen (continued) 
prompting to, 130 
sequential device, 105 
unit specifier, 103 
units, 181 
writing to, 259 
Segment 
actual arguments, 301 
default data 
LOCNEAR, 89 
NEAR, 35 
defined, 341 
multiple arguments, 34 
Segmented address, 34, 35 
Sequential 
access, 105 
device, 105 
file, writing to, 281 
internal file, 105 
operations, direct-access file, 106 
SETDAT function, 331 
SETTIM function, 331 
‘SHARE’, 117 
SHARE = option, 101, 117 
Sharing files, 117 
Sharing memory 
COMMON, 182 
EQUIVALENCE, 210 
Shift 
arithmetic, 91 
logical, 90 
Short address 
defined, 341 
NEAR, 35 
Short arithmetic. See 16-bit arithmetic 
Short call, defined, 341 
SIGN, 72 
Sign extended, defined, 341 
Sign transfer intrinsic function, 72 
Significant characters, 315 
Significant digits, real, 22, 23 
SIN, 84, 85 
Sine 
arc. See Arc sine 
hyperbolic intrinsic function, 84 
intrinsic function, 84 
Single left quotation mark (‘), 6, 25 
Single right quotation mark (’), 6, 25, 
27 


Single-precision real number, defined, 
341 


Index 


SINH, 84 
Size 
adjustable. See Adjustable-size array 
array, 30 
assumed. See Assumed-size array 
data types, 20 
INTEGER, default, 21 
logical, 25 
real, 22 
Slash (/), 39 
Slash (/) editing, 130 
Slashes (//), 44 
Small capitals, 8 
Small model, defined, 341 
SNGL, 59, 68 
Source code, 53 
Source file, defined, 341 
Source listing. See Listing 
Source record, 51 
SP editing, 129 
See also Optional-plus editing 
Spacing, vertical, 124 
Specific intrinsic function, 66 
Specification statement, 56, 159 
Specifier 
alternate return, 217 
format. See Format specifier 
length. See Length 
Speed 
arithmetic, 308 
input/output, 121 
SQRT, 80 
Square root intrinsic functions, 80, 81 
SS editing, 129 
See also Optional-plus editing 
Stack 
defined, 341 
Microsoft languages, 33 
Standard, ANSI. See ANSI standard 
Start of execution, 62 
Statement 
ASSIGN 
described, 164 
format specifiers, 110 
INTEGER*1 variables, 165 
undefined variable 39 
assigned GOTO, 289 
assignment, 166, 167 
BACKSPACE, 98, 169 
BLOCK DATA, 56, 171 
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Statement (continued) 


block-data subprogram, 171 
CALL 
checking arguments, 18 
described, 173 
DO loop, used within, 195 
subroutine, 62 
categories, 157, 158 
CHARACTER, 177 
character assignment, 166 
CLOSE 
asterisk unit, 103 
described, 180 
disconnecting units, 102 
listed, 98 
units 0, 5, 6, #, 181 
COMMON, 182 
COMPLEX, 185 
CONTINUE, 187 
control, table, 160 
DATA, 56, 188, 189 
DECODE, 123 
described, 157 
DIMENSION, 191 
directory, 162 
DO 
described, 195 
extended range, 292 
FORTRAN 66, 292 
DOUBLE PRECISION, 198 
ELSE, 200 
ELSEIF, 201 
ENCODE, 123 
END 
described, 203 
external function, 64 
order, 56 
ENDFILE, 98, 204 
ENDIF, 206 
ENTRY, 207 
EQUIVALENCE, 159, 210 
executable 
block-data subprogram, 56 
described, 157 
order, 56 
program execution, 62 
expression, 38 
EXTERNAL 
actual argument, 59 
described, 213 
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EXTERNAL (continued) 
formal argument, 59 
$FLOATCALLS, 294 
FORMAT 
block-data subprogram, 56 
described, 215 
FUNCTION 
checking arguments, 18 
described, 216 
external function, 64 
order, 56 
overrides IMPLICIT, 231 
GOTO 
assigned, 219 
computed, 221 
unconditional, 223 
IF - 
arithmetic, 224 
block, 227 
logical, 226 
IF THEN ELSE, 227 
IMPLICIT 
default data type, 18 
described, 230 
intrinsic function, 65 
order, 56 
input/output 
See also Input/output statement 
listed, 98 | 
options, 99, 100 
table, 161 
INQUIRE, 98, 232 
INTEGER, 238 
INTERFACE 
checking arguments, 18, 57, 60 
checking subroutine arguments, 
174 
described, 240 
order, 56 
INTRINSIC 
actual argument, 59 
described, 242 
intrinsic function names, 65 
label, alternate return, 175 
LOCKING 
described, 243 
listed, 98 
REC = option, 107 
LOGICAL, 246 
SNOFLOATCALLS, 294 


Statement (continued) 
nonexecutable, 157 
OPEN 
connecting anaes. 102 
described, 248 
listed, 98 
naming files, 102 
record length, 105 
order, 54, 55, 56 
$PAGE, 306 
PARAMETER, 56, 255 
PAUSE, 257 
PRINT, 98, 259 
PROGRAM 
described, 260 
main program, 62 
order, 56 
READ 
described, 261 
end-of-file handling, 114 
error handling, 114 
listed, 98 
REC = option, 107 
REAL, 264 
RETURN 
block-data subprogram, 56 
described, 266 
REWIND, 98, 268 
SAVE, 270 
specification, 56, 159 
statement function, 56, 272 
STOP, 274 
SUBROUTINE, 56, 276 
subroutine, used in, 276 
terminal, defined, 195 
type 
dimension declaration, 19 
intrinsic function name, 65 
listed, 159 
overrides IMPLICIT, 281 
WRITE 
described, 279 
listed, 98 
REC = option, 107 
Statement function, 17, 65 
Statement label 
assigning to integer variable, 164 
described, 53 
format specifier, 109 
FORMAT statements, 215 
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Statement label (continued) 
free form, 53 
undefined variable, 39 
Statement-function statement, 56, 272 
STATUS = option, 180, 181 
STOP, 274 
$STORAGE 
allocation of memory, INTEGER, 21 
arithmetic precision, 42 
described, 308 
expression data type, 59 
expression with integer operand, 42 
generic intrinsic function, data type, 
66 
integer arguments, 175 
integer constants, 21 
logical arguments, 175 
logical constants, 25 
order, 56 
Storage size, 21 
See also Precision 
Storage, order, 191 
String 
See also Character constant 
C, 27, 336 
concatenation, 44 
defined, 341 
$STRICT 
array dimensions, 30 
associating elements, 211 
character assignment statement, 
167 
character substrings, 29 
common blocks, 183 
comparing arithmetic and 
character variables, 44 
- continuation line, 52 
DATA statements, 189 
described, 310 
EQUIVALENCE statement, 212 
struct, passing, 37 
Structure, file, 106, 107 
Structured program, 61 


‘Subprogram 


See also Block-data subprogram; 
Function; Subroutine 

argument, data-type conversion, 68 

block data, 171, 172 

calling subroutine, 173 

defined, 61 
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Subprogram (continued) 
external name, 32 
PASCAL, 36 
returning, 203 

SUBROUTINE, 56, 174, 276 

Subroutine 
actual argument, 59 
argument, 174 
calling, 173, 174 
calling within DO loop, 195 
checking arguments, 18 
default data type, 18 
described, 62 
entry points, 207 
external, identifying, 213 
floating-point calls, 294 
formal argument, 59 
name, 16 
statements in, 276 
summary, 61 
time, date, 331 

Subscript, 58 

Substring 
character, 97 
checking, 28 
$DEBUG, 29 
described, 28 
length, 29 
passing by value, 36 
range, checking, 289 

$SUBTITLE, 312 

Subtraction intrinsic function. See 

Positive difference intrinsic 


function 
Subtraction operator (—), 39 
Suppressing 
end-of-record mark, 130 
output, 130 


plus signs, 129 
Suspending execution, 257 
Syntax 

ALIAS, 32 

array element, 30 

attribute, 32 

character substring, 28 

complex, 24 

described, 5, 288 

example, 8 

function reference, 64 

integer, 21 
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Syntax (continued) 


NEAR common block, 35 
real data type, 23, 24 


T editing, 128 


See also Positional editing 


Tab, 14, 128 
Table 


arithmetic operands, data-type 
conversion, 43 
arithmetic operators, 39 
ASCII character set, 319 
attributes, 31 
C-string escape sequences, 27 
carriage-control characters, 124 
control statements, 160 
data-type sizes, 20 
error and end-of-file handling when 
reading, 115 
exponents 
double-precision real editing, 141 
forms, 139. 
G edit descriptors, 140 
input/output statement options, 100 
input/output statements, 98, 161 
integers, 21 
intrinsic function 
address, 89 
bit manipulation, 90 
character functions, 86 
complex functions, 79 
data-type conversion, 68 
end-of-file, 87 
exponent, 82 
logarithm, 82 
positive difference, 74 
rounding, 70 
sign transfer, 72 
square root, 80 
summary, 321 
trigonometric, 84 
truncation, 70 
logical expressions, 47 
logical operators, 46 
metacommands, 286 
relational operators, 45 
repeatable edit descriptors, 215 
share and mode values, 118 
specification statements, 159 


Table (continued) 
statement categories, 158 
trigonometric intrinsic function, 
arguments and results, 85 
TAN, 84, 85 
Tangent 
arc. See Arc tangent 
hyperbolic, 84 
intrinsic function, 84 
TANH, 84 
Temporary file, name, 102 
Terminal I/O, defined, 341 
Terminal statement, 195 
Terminating 
block IF statement, 206 
field, 134 
format control, 130 
main program, 203 
program, 274 
Testing 
assigned GOTO, 289 
$DEBUG, 289 
STITLE, 314 
Time, date procedures, 331 
Title, listing, 314 
TL editing, 128 
See also Positional editing 
TLOSS, defined, 342 
TR editing, 128 
See also Positional editing 
Transfer of sign intrinsic function, 72 
.TRUE., 25 
STRUNCATE, 315 
Trigonometric intrinsic function, 83, 85 
Truncation 
character assignment statements, 
167 
intrinsic functions, 70 
Two’s complement, defined, 342 
Type coercion, defined, 342 
Type conversion 
intrinsic functions, 67 
value arguments, 60 
Type statement 
dimension declaration, 19 
intrinsic function name, 65 
listed, 159 
overrides IMPLICIT, 231 
Type, data. See Data type 
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Unary operator 
arithmetic, 39 
logical, 46 
Unconditional GOTO, 223 
Undeclared name, 17 
Undeclared variable, warning, 291 
Undefined 
argument, intrinsic function, 66 
array element, 38, 39 
function, 38 
intrinsic function, 66 
name, 17 
variable, 38, 39, 342 
Underflow, IEEE, 290 
Underscore (_), names using C 
attribute, 33 
Underscore (__), names, 16 
Unformatted file, 106 
Unformatted record, 106 
Unit 
asterisk (*) 
closing, 181 
described, 103 
inquiring, 232 
opening, 254 
writing to, 259 
described, 102 
disconnecting, 102, 180 
five, 181 
inquire by, 233 
inquiring about, 232 
opening, 248 
preconnected 
described, 102, 103 
opening, 254 
reconnecting, 103, 254 
six, 181 
program, defined, 340 
specifying, 102 
trigonometric intrinsic function, 85 
zero, 181 
UNIT = option, 101, 102 
"UNLCR’, 244 
Unnamed block-data subprogram, 171 
Unopened file, 236, 262, 279 
Unresolved variable, defined, 342 
Upper dimension bound, 191 
Uppercase 
character constants, 25 
character set, 13 
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Uppercase (continued) WRITE 
keywords, 5 described, 279 
listed, 98 
REC = option, 107 
VALUE, 36 "WRITE’, 117 
Value Writing 
absolute. See Absolute value described, 279 
arguments, data-type conversion, 60 direct-access file, 106 
passing by end-of-file record, 204 
arrays, in C, 37 screen, 259 
C attribute, 33, 36 unopened file, 279 
integers, 60 
PASCAL, 36 
VALUE, 36 X editing, 129 
principal, 66 See also Positional editing 


returning from function, 63 
returning from subroutine, 62 


var parameter, 35 Z editing, 135 
Variable See also Hexadecimal editing 
actual argument, 58 Zero 
character carriage-control character, 124 
common block, 26 column 6, 14 
internal file, 97 divide by, 40, 289 
length of, 25 raising to negative power, 40 
declaring, 291 raising to zero power, 40 


default data type, 17 
DO. See DO variable, modifying 
expression, used in, 38 
formal argument, 58 
SLARGE, 36 
local, in DATA statements, 189 
name, 17, 315 
saving, 270 
size, ANSI standard, 25 
undefined, 38, 39, 342 
unresolved, 342 
VARYING 
C attribute, 33 
described, 37 
Version 
3.2, libraries compiled with, 35 
MS-DOS, prior to 3.0, 244 
Vertical bar (j), 7 
Vertical spacing control, 124 
Vertical tab character, 27 


Warning message, undeclared name, 
17, 291 
Width, listing, 303 
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Mixed-language programming is the process of creating programs from 
two or more source languages. This capability allows you to combine the 
unique strengths of Microsofte BASIC, C, FORTRAN, Pascal, and Macro 
Assembler. Any one of these languages (in their recent versions) can call 
any of the others. Virtually all of the routines from all extensive language 
libraries are available to a mixed-language program. 


For example, mixed-language programming helps you effectively use as- 
sembly language. You can develop the majority of your program quickly 
with Microsoft C or QuickBASIC, then call assembly for those few routines 
that are executed many times and must run with utmost speed. 


Mixed-language programming also facilitates the transition from one lan- 
guage to another. You may have a large FORTRAN program which you 
are converting to C. You can replace your FORTRAN subroutines, one by 
one, with corresponding C functions. C-generated code can come on-line as 
soon as each function 1s written. 


Finally, mixed-language programming is particularly valuable if you are 
marketing your own libraries. With the techniques presented here, you can 
produce libraries for any of the languages mentioned above, often with 
little change. 


How to Use this Manual 


This manual focuses on the concepts, syntax, and programming methods 
necessary to write mixed-language programs. The manual assumes that 
you have a basic understanding of the languages you wish to combine and 
that you already know how to write, compile, and link multiple-module 
programs with these languages. The manual does not attempt to teach the 
basics of programming in any particular language. 


Mixed-language programming is not particularly difficult, but it does 
require that you understand certain basic issues. This manual first 
presents these issues in some detail. Once you understand the basics, you 
can proceed to the sections that are relevant to the languages you are 
using. 
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The manual is divided into two parts; each part has a different orientation 
and purpose: 


e Part 1. Mized-Language Interfaces. 


Part 1 shows how to establish an interface between any two —~ 
languages (of those listed above). It does not assume you have any 

background in mixed-language programming, and extensively uses 

examples with simple parameter lists. | 


@ Part 2. Data Handling Reference. 


Part 2 shows how to pass different kinds of data. This part of the 
manual assumes you already know the basics of mixed-language 
programming. It focuses on the particular programming considera- 
tions for passing strings, arrays, common blocks, etc. 


Depending on your current level of knowledge, you may not need to start 
reading this manual at the beginning. The manual is structured so that 
you can easily turn to the section that would be most helpful: 


1. 


For an introduction to mixed-language concepts, read Chapter 1, “Ele- 
ments of Mixed-Language Programming.” 


Depending on the high-level language of your main program, read 
either Chapter 2, 3, 4, or 5. The opening section of each of these 
chapters describes mixed-language syntax in detail. For quick refer- 
ence, turn directly to the section in Chapters 2-5 most relevant to 
your combination of languages. 


To find out about calls to assembly language, read Chapter 6, 
“Assembly-to-High-Level Interface.” 


After you have learned how to pass simple arguments pues as 
integers) between languages, use Part 2 as a reference for passing more 
complex kinds of data, such as strings and arrays. 


Definitions 


The notational conventions used in this manual are consistent with the 
conventions described in the user’s guide for each Microsoft language. 
However, the following terms are used in specialized ways: 


Term Definition 


Routine Any function, subprogram, subroutine, or procedure 


Xi 


that can be called from another language. 


The concept is similar to that of a procedure in assem- 
bly language; however, the term “routine” is used in 
most contexts to avoid confusion with the Pascal key- 
word procedure. 


Parameter 


Interface 


Formal 
parameter 


A piece of data passed directly between two routines. 
(External data are shared by all routines, but cannot 
be said to be passed.) 


Although elsewhere the term “argument” is Sometimes 
used interchangeably with “parameter,” in this 
manual, “argument” is used to refer to the particular 
values or expressions given for parameters. 


A method for providing effective communication 
between different formats. With high-level languages, 
an interface is often established by some kind of for- 
mal declaration. 


A formal parameter is a dummy parameter declared in 


an interface statement or declaration. C uses parame- 
ter type declarations rather than formal parameters. 
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Elements of Mixed-Language Programming 


Microsoft languages have special keywords that facilitate mixed-language 
programming (described in Chapters 2-5). However, in order to use these 
keywords, you first need to understand the basic issues involved. 


This chapter describes the elements of mixed-language programming: how 
languages differ and how to resolve these differences. If you understand the 
principles described in the next few paragraphs, then you may want to 
turn directly to other chapters in this manual. Nevertheless, you still may 
find it helpful to refer to this chapter occasionally. 


Section 1.1 presents the basic context of a mixed-language call, when and 
how you make such a call. 


Sections 1.2—1.4 present the three fundamental mixed-language program- 
ming requirements: 


e Naming convention requirement 
e Calling convention requirement 


e Parameter-passing requirement 


Section 1.5 presents the compile-time and link-time issues, including use of 
memory models. 


1.1 Making Mixed-Language Calls 


Mixed-language programming always involves a call; specifically, it in- 
volves a function, procedure, or subroutine call. For example, a BASIC 
main module may need to execute a specific task that you would like to 
program separately. Instead of calling a BASIC subprogram, however, you 
decide to call a C function. 


Mixed-language calls necessarily involve multiple modules (at least with 
Microsoft languages). Instead of compiling all of your source modules with 
the same compiler, you use different compilers. In the example mentioned 
above, you would compile the main-module source file with the BASIC 
compiler, another source file (written in C) with the C compiler, and then 
link together the two object files. 
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Figure 1.1 illustrates how the syntax of a mixed-language call works, using 
the example mentioned above. 


DECLARE SUB Prn CDECL() 


VOL. spent jt 


Figure 1.1 Mixed-Language Call 


In the illustration above, the BASIC call to Cis CALL Prn, similar to a 
call to a BASIC subprogram. However, there are two differences between 
this mixed-language call and a call between two BASIC modules: 1) the 
subprogram Prn is actually implemented in C, using standard C syntax; 
and 2) the implementation of the call in BASIC is affected by DECLARE 
statement, which uses the CDECL keyword in order to create compatibil- 
ity with C. The DECLARE statement (which is discussed in detail in 
Chapter 2) is an example of a mixed-language “interface” statement. Each 
language provides its own form of interface. 


Despite syntactic differences, functions, procedures, and FORTRAN sub- 
routines are all similar. The principal difference is that some kinds of rou- 
tines return values, and others do not. You can interchange routines that 
have a return value, and you can interchange routines that have no return 
value. (Note that in this manual, “routine” refers to any function, pro- 
cedure or subroutine that can be called from another module.) 
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Table 1.1 shows the correspondence between routine calls in different 
languages. 


Table 1.1 

Language Equivalents for Routine Calls 

Language Return value No return value 
BASIC FUNCTION subprogram 

procedure 

Cc | function (void) function 

FORTRAN function subroutine 

Pascal function procedure 

Macro Assembler procedure procedure 


For example, a BASIC module can make a subprogram call to a FOR- 
TRAN subroutine. BASIC should make a FUNCTION call in order to 
calla FORTRAN function; otherwise, the call can be made, but the return 
value will be lost. 


Note 


BASIC DEF FN functions and GOSUB subroutines cannot be called 
from another language. 


1.2 Naming Convention Requirement 


The term “naming convention” refers to the way that a compiler alters the 
name of the routine before placing it into an object file. 


It is important that you adopt a compatible naming convention when you 
issue a mixed-language call. If the name of the called routine is stored 
differently in each object file, then the linker will not be able to find a 
match. It will instead report an unresolved external. 


Microsoft compilers place machine code into object files; but they also 
place there the names of all routines and variables which need to be 
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accessed publicly. That way, the linker can compare the name of a routine 
called in one module to the name of a routine defined in another module, 
and recognize a match. Names are stored in ASCII (American Standard 
Code for Information Interchange) format. You can see precisely how they 
are stored if you use the DEBUG utility to dump an object file’s bytes. 


BASIC, FORTRAN, and Pascal use roughly the same naming convention. 
They translate each letter to uppercase. BASIC type declaration charac- 
ters (%, &, !, #, $) are dropped. 


_ However, each language recognizes a different number of characters. FOR- 

TRAN recognizes the first 6 characters of any name, Pascal the first 8, and 
BASIC the first 40. If a name is longer than the language will recognize, 
additional characters are simply not placed in the object file. 


C uses a quite different convention; the C compiler does not translate any 
letters to uppercase, but inserts a leading underscore (_ ) in front of the 
name of each routine. C recognizes the first 31 characters of a name. 


Differences in naming conventions are taken care of for you automatically 
by mixed-language keywords, as long as you follow two rules: 


1. If you are using any FORTRAN routines, all names should be 6 
characters or less in length. 


2. Do not use the /NOIGNORE linker option (which causes the 
linker to distinguish between Prn and prn). With C modules, 
this means that you will have to be careful not to rely upon 
differences between uppercase and lowercase letters. 


The CL driver and Microsoft QuickCn automatically use the 
/NOIGNORE option when linking. To solve the problems 
created by this behavior, either link separately with the LINK 
utility, or use all lowercase letters in your C modules. 


Figure 1.2 illustrates a complete mixed-language development example, 
showing how naming conventions enter into the process. 


10 
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MAINPROG.OBJ " PRN.OBJ 
(object file) Y (object file) 


LINK 


XKXxX: call yyyy 


nd 
awe 
Pal 
wa 


Figure 1.2 Naming Convention 


11 


Microsoft Mixed-Language Programming Guide 


In the example above, note that the BASIC compiler inserts a leading 
underscore in front of Prn as it places the name into the object file, 
because the CDECL keyword directs the BASIC compiler to use the C 
naming convention. BASIC will also convert all letters to lowercase when 
this keyword is used. (Strictly speaking, converting letters to lowercase is 
not part of the C naming convention; however, it is consistent with the 
programming style of most C programs. ) 


1.3 Calling Convention Requirement 


The term “calling convention” refers to the way that a language imple- 
ments a call. The choice of calling convention affects the actual machine 
instructions that a compiler generates in order to execute (and return 
from) a function, procedure, or subroutine call. 


The calling convention is a low-level protocol. It is crucial that the two 
routines concerned (the routine issuing a call and the routine being called) 
recognize the same protocol. Otherwise, the processor may receive incon- 
sistent instructions, thus causing the system to crash. 


The use of a calling convention affects programming in two ways: 


1. The calling routine uses a calling convention to determine in what 
order to pass arguments (parameters) to another routine. This con- 
vention can usually be specified in a mixed-language interface. 


2. The called routine uses a calling convention to determine in what 
order to receive the parameters that were passed to it. In most 
languages, this convention can be specified in the routine’s head- 
ing. BASIC, however, always uses its own convention to receive 
parameters. 


In other words, each call to a routine uses a certain calling convention, and 
each routine heading specifies or assumes some calling convention. The two 
conventions must be compatible. With each language except BASIC, it is 
possible to change either calling convention. Usually, however, it 1s sim- 
plest to adopt the convention of the called routine. For example, a C func- 
tion would use its own convention to call another C function, and use the 
Pascal convention to call Pascal. 


BASIC, FORTRAN, and Pascal use the same standard calling convention. 
C, however, uses a quite different convention. 
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Note 


The next few paragraphs discuss some of the details of calling conven- 
tions. It is not crucial for a high-level language programmer to under- 
stand these details; the programmer only needs to know that the dif- 
ferent conventions are not compatible with each other. 


The Microsoft BASIC, FORTRAN and Pascal calling conventions each 
push parameters onto the stack in the order in which they appear in the 
source code. For example, the BASIC statement CALL Calc (A,B) 
pushes the argument A onto the stack before it pushes B. These conven- 
tions also specify that the stack is restored by the called routine, just 
before returning control to the caller. (The stack is restored by removing 
parameters. ) 


The C calling convention pushes parameters onto the stack in the reverse 
order in which they appear in the source code. For example, the C function 
call calc (a,b); pushes b onto the stack before it pushes a. In con- 
trast with the other high-level languages, the C calling convention specifies 
that a calling routine always restores the stack immediately after the 
called routine returns control. 


The BASIC, FORTRAN, and Pascal conventions produce slightly less 
object code. However, the C convention makes calling with a variable 
number of parameters possible. (Because the first parameter is always the 
last one pushed, it 1s always on the top of the stack; therefore it has the 
same address relative to the frame pointer, regardless of how many param- 
eters were actually passed.) 


1.4 Parameter-Passing Requirement 


Section 1.3 discussed the overall protocol (the calling convention) that two 
routines use to communicate with each other; this section concerns how an 
individual piece of data (a parameter) is actually sent. 


If your routines do not agree on how a parameter is to be sent, then a 


called routine will receive bad data. It 1s also possible that the program 
could cause the system to crash. 
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Microsoft compilers support three methods for passing a parameter: 


Method Description 


By near reference Passes a variable’s near (offset) address. 


This method gives the called routine direct 
access to the variable itself. Any change the rou- 
tine makes to the parameter will be reflected in 
the calling routine. 


By far reference Passes a variable’s far (segmented) address. 


This method is similar to passing by near refer- 
ence, except that a longer address is passed. 
This method is slower than passing by near 
reference but is necessary when you pass data 
that is outside of the default data segment. 
(This is not an issue in BASIC or Pascal, unless 
you have specifically requested far memory.) 


By value Passes only the variable’s value, not address. 


With this method, the called routine knows the 
value of the parameter, but has no access to the 
original variable. Changes to a value parameter 
have no affect on the value of the parameter in 

the calling routine, once the routine terminates. 


The fact that there are different parameter-passing methods has two 
implications for mixed-language programming. 


First, you need to make sure that the called routine and the calling rou- 
tine use the same method for passing each parameter (argument). In most 
cases, you will need to check the parameter-passing defaults used by each 
language, and possibly make adjustments. Each language has keywords or 
language features that allow you to change parameter-passing methods. 


Second, you may want to use a particular parameter-passing method 
rather than using the defaults of any language. (In fact, the examples in 
Chapters 2—5 specifically require one particular method or another, 
because of program logic.) 


Table 1.2 summarizes the parameter-passing defaults for each language. 
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Table 1.2 

Parameter-Passing Defaults 

Language Near reference Far reference By value 
BASIC all 

C hear arrays far arrays hon-arrays 
FORTRAN all all! 

Pascal VAR, CONST VARS, CONSTS other params 


1 When a PASCAL or C attribute is applied to a FORTRAN routine, pass by value becomes 
the default. 


Each language has methods for overriding these defaults, which are listed 
in Chapter 7. 


1.5 Compiling and Linking 


After you have written your source files and resolved the issues raised in 
Sections 1.2—1.4, you are ready to compile individual modules and then 
link them together. 


1.5.1 Compiling with Proper Memory Models 
With Microsoft BASIC, FORTRAN, and Pascal, no special options are 


required to compile source files that are part of a mixed-language program. 


With Microsoft CO, however, you need to be aware that not all memory 
models will be compatible with other languages. BASIC, FORTRAN, and 
Pascal use only far (eemented) code addresses. Therefore, you must al- 
ways compile C modules in medium, large, or huge model, because these 
models also use far code addresses. Compiling in small or compact model 
will cause the mixed-language program to crash, as soon as a call is made 
to or from C. (This problem can be averted if you apply the far keyword 
to a C function definition, in order to specify that the function uses a far 
call and return.) 
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The paragraph above concerns the size of code addresses. Differences in 
the size of data addresses can be resolved through compile options or in 
the source code. Choice of memory model affects the default data pointer 
size in C and FORTRAN, although this default can be overriden with 
near and far. Choice of memory model, with C and FORTRAN, also 
affects whether data objects are located in the default data segment; if a 
data object is not located in the default data segment, it cannot be 
directly passed by near reference. 


1.5.2 Linking with Language Libraries 


In many cases, linking modules compiled with different languages can be 
done easily. Any of the following measures will ensure that all of the 
required libraries are linked in the correct order: 


e Put all language libraries in the same directory as the source files. 


e List directories containing all needed libraries in the LIB environ- 
ment variable. 


e Let the linker prompt you for libraries. 


In each of the above cases, the linker finds libraries in the order that it 
requires them. If you enter the libraries on the command line, then they 
must be entered in a particular order. 


However, if you are using, Version 4.0 of FORTRAN to produce one 

of your modules, then you will need to link with /NOD (no default 
libraries), and specify all the libraries you need directly on the link 
command-line. You can also specify these libraries with an automatic- 
response file (or batch file), but you cannot use a default library search. 


With the FORTRAN 4.0 C-compatible library, make sure that you specify 
the FORTRAN library before you specify the C library, unless your ver- 
sion of C 1s more recent than your version of FORTRAN, in which case 
specify the C library first. Otherwise, any other libraries you specify may 
go In any order. 


If you are listing BASIC libraries on the LINK command-line, the BASIC 
libraries must precede all others. 

m Example 

LINK /NOD modi mod2,,,GRAFX+LLIBFORE+LLIBC 


The example above links two object modules with the FORTRAN 4.0 and 
C large model libraries. In addition, an extra library, GRAFX, is linked in. 
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BASIC Calls to High-Level Languages 


Microsoft BASIC supports calls to routines written in Microsoft C, FOR- 
TRAN, and Pascal. This chapter describes the necessary syntax for calling 
these other languages, and then gives examples for each combination of 
BASIC with another language. Only integers are used as parameters in 
these examples. | 


The chapter ends with a section that lists restrictions on the use of func- 
tions from the C standard library. Consult this section if you are using any 
memory allocation or system library functions. 


For information on how to pass specific kinds of data, consult Part 2, 
“Data Handling Reference.” 


2.1 The BASIC Interface to Other Languages 


The BASIC DECLARE statement provides a flexible and convenient 
interface to other languages. It is available with Microsoft QuickBASIC, 
Versions 4.0 and later. Versions that do not provide the DECLARE 
statement do not provide libraries that are compatible with other lan- 
guages, either. These earlier versions have limited use in mixed-language 
programs, as they cannot successfully call a C, FORTRAN, or Pascal rou- 
tine that makes any use of a library. 


The syntax of the DECLARE statement is summarized below. 


2.1.1 The DECLARE Statement 

When you call a function, the DECLARE statement syntax is as follows: 
DECLARE FUNCTION name [CDECL][ALIAS "aliasname"||(parameter-list)] 
When you call a subprogram, the statement syntax is as follows: 
DECLARE SUB name [CDECL]JALIAS "aliasname"||(parameter-list)| 


The name field is the name of the function or subprogram procedure you 
wish to call, as it appears in the BASIC source file. Here are the recom- 
mended steps for using the DECLARE statement to call other languages: 


1. For each distinct interlanguage routine you plan to call, put a 
DECLARE statement in the BASIC source file before the routine 
is called. 


For example, your program may call the subprogram Maxparam 
five different times, each time with different arguments. However, 
you need to declare Maxparam just once. Ideally, DECLARE 

statements should be placed near the beginning of the source file. 
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2. If you are calling a routine from a C module, use CDECL in the 

DECLARE statement (unless the C routine is declared with the 
pascal or fortran keyword). 
CDECL directs BASIC to use the C naming and calling conven- 
tions during each subsequent call to name. No similar keywords 
are provided for Pascal or FORTRAN, because they each use the 
same calling convention as BASIC. 


3. If you are calling a FORTRAN routine with a name longer than six 
characters, or a C or Pascal routine with a name longer than eight 
characters, use the ALIAS feature. The use of ALIAS is explained 


in the section below. 


4. Use the parameter list to determine how each parameter is to be 
passed. The use of the parameter list is explained below, in the sec- 
tion immediately after the information on ALIAS. 


5. Once the routine is properly declared, call it just as you would a 
BASIC subprogram or function. 


The other fields are explained in the following discussion. 


2.1.2 Using ALIAS 
As noted above, the use of ALIAS may be necessary because FORTRAN 


places only the first 6 characters of a name into an object file, whereas C 
and Pascal each place the first 8, but BASIC will place up to 40 characters 
of a name into an object file. 


Note 


You do not need the ALIAS feature to remove type declaration char- 

acters (7, &,!, #, $). BASIC automatically removes these characters 

when it generates object code. Thus, Fact% in BASIC matches Fact 
in Pascal. 


The ALIAS keyword directs BASIC to place aliasname into the object file, 
instead of name. The BASIC source file still contains calls to name. How- 
ever, these calls are interpreted as if they were actually calls to alzasname. 


= Example 


DECLARE FUNCTION Quadratic% ALIAS "QUADRA" (a, b, c) 
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In the example above, QUADRA, the alzasname, contains the first six char- 
acters of Quadratic%, the name. This causes BASIC to place QUADRA 
into the object code, thereby mimicking FORTRAN’s behavior. 


2.1.3 Using the Parameter List 


The parameter list syntax is displayed below, followed by explanations of 
each field. Note that you can use BY VAL or SEG, but not both. 


m@ Syntax 
[BYVAL | SEG] variable [AS typel]..., 


Use the BY VAL keyword to declare a value parameter. In each subse- 
quent call, the corresponding argument will be passed by value (the 
default method for C and Pascal modules). 


Note 


BASIC provides two ways of “passing by value.” The usual method of 
passing by value is to use an extra set of parentheses, as in: 


CALL Holm ( (A) ) 


This method actually creates a temporary value, whose address is 
passed. BYVAL provides a true method of passing by value, because 
the value itself is passed, not an address. Only by using BYVAL will a 
BASIC program be compatible with a non-BASIC routine that expects 
a value parameter. 


Use the SEG keyword to declare a far reference parameter. In each subse- 
quent call, the far (segmented) address of the corresponding argument will 


be passed (the default method for FORTRAN modules). 


You can choose any legal name for variable; but only the type associated 
with the name has any significance to BASIC. As with other variables, the 
type can be indicated with a type declaration character (%, &, !, #, $) or 
by implicit declaration. 


You can use the AS type clause to override the type declaration of 
variable. The type field can be INTEGER, LONG, SINGLE, 
DOUBLE, STRING, a user-defined type, or ANY, which directs BASIC 
to permit any type of data to be passed as the argument. 
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m= Examples 
DECLARE FUNCTION Calc2! CDECL (BYVAL a%, BYVAL b%, BYVAL c!) 


In the example above, Calc2 is declared as a C routine that takes three 
arguments: the first two are integers passed by value, and the last is a 
single-precision real number passed by value. 


DECLARE SUB Maxout (SEG vari AS INTEGER, BYVAL var2 AS DOUBLE) 


This example declares a subprogram Maxout that takes an integer passed 
by far reference, and a double-precision real number passed by value. 


2.2 Alternative BASIC Interfaces 


Though the DECLARE statement provides a particularly convenient 
interface, there are other methods of implementing mixed-language calls. 


Instead of modifying the behavior of BASIC with CDECL, you can 
modify the behavior of C by applying the pascal or fortran keyword to 
the function definition heading. (‘These two keywords are functionally 
equivalent). Or you can compile the C module with the /Ge option, which 
specifies that all C functions, calls, and public symbols use the conventions 


of BASIC/FORTRAN/Pascal. 
For example, the following C function uses the BASIC/FORTRAN/Pascal 


conventions to receive an integer paramter: 


int pascal fun1(n) 
int n; 


You can specify parameter-passing methods without using a DECLARE 
erent or by using a DECLARE statement and omitting the parame- 
ter list. 


e You can make the call with the CALLS statement. The CALLS 
statement causes each parameter to be passed by far reference. 


e You can use the BYVAL and SEG keywords in the actual param- 
eter list when you make the call: 


CALL Fun2(BYVAL Terml, BYVAL Term2, SEG Sum) ; 


In the example above, BYVAL and SEG have the same meaning that 
they have in a BASIC DECLARE statement. When you use BYVAL and 
SEG this way, however, you need to be careful because neither the type 
nor the number of parameters will be checked as they would be in a 
DECLARE statement. 
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2.3 BASIC Calls to C 


This section applies the steps outlined in Section 2.1 to two example pro- 
grams. An analysis of programming considerations follows each example. 


2.3.1 Calling C from BASIC-—No Return Value 


The example below demonstrates a BASIC main module calling a C func- 
tion, maxparam. The function maxparam returns no value, but adjusts 
the lower of two arguments to equal the higher argument. 


= Example 


' BASIC source file - calls C function returning no value 
t 
DECLARE SUB Maxparam CDECL (A AS INTEGER, B AS INTEGER) 
DECLARE as subprogram, since there is no return value 
CDECL keyword causes Maxparam call to be made w/ C conventions 


Integer parameters passed by near reference (BASIC default) 


t 
t 
f 
X%Y= 5 


Y= 

PRINT USING "X% = #4 Y% = ##":X% :¥% ' X% and Y% before call 
CALL Maxparam (X%, Y%) ' Call C function 
PRINT USING "X% = ## Y% = ##":X% sYY% " X% and Y% after call 
END 


/* C source file +«/ 
/* Compile in MEDIUM or LARGE memory model «/ 
/* Maxparam declared VOID because no return value «/ 


void maxparam(pl, p2) 


int near *pl1; /* Integer params received by near ref. «/ 
int near *p2; /* NEAR keyword not needed in MEDIUM model +/ 
if (*pl > *p2) 
*pZ = *pl; 
else 
*pl = *p2; 


} 


Naming conventions: The CDECL keyword causes Maxparam to be 
called with the C naming convention (as _maxparam). Note that word 
length is not an issue because maxparam does not exceed eight charac- 
ters. 
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Calling conventions: The CDECL keyword causes Maxparam to be 
called with the C calling convention, which pushes parameters in the re- 
verse order to how they appear in the source code. 


Parameter-passing methods: Since the C function maxparam may 
alter the value of either parameter, both parameters must be passed by 
reference. In this case, near reference was chosen; this method is the de- 
fault for BASIC (so neither BY VAL nor SEG is used) and is specified in 
C by using near pointers. 


Far reference could have been specified by applying SEG to each argu- 
ment in the DECLARE statement. In that case, the C parameter decla- 
rations would use far pointers. 


2.3.2 Calling C from BASIC—Function Call 


The example below demonstrates a BASIC main module calling a C func- 
tion, fact. This function returns the factorial of an integer value. 


m = Example 


' BASIC source file - calls C function with return value 
? 


DECLARE FUNCTION Fact% CDECL (BYVAL N AS INTEGER) 


' DECLARE as function returning integer (%) 

' CDECL keyword causes Fact% call to be made w/ C conventions 
' Integer parameter passed by value 

! 


X¥ = 3 
YY = 4 

PRINT USING "The factorial of X¥% is ####"; Fact% (X%) 
PRINT USING "The factorial of Y% is ####"; Fact% (Y%) 
PRINT USING "The factorial of XY%+Y% is ##44": Fact% (XY%+Y¥%) 
END 


/* C source file «/ 
/* Compile in MEDIUM or LARGE model +«/ 
/* Factorial function, returning integer */ 


int fact (n) 
int n; /*x Integer passed by value, the C default +«/ 


a 


int result = L: 
while (n > O) 


result *= n--; /* Parameter n modified here +«/ 
return (result) ; 
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Naming conventions: The CDECL keyword causes Fact to be called 
with the C naming convention (as _fact). Note that word length is not 
an issue because fact does not exceed eight characters. 


Calling conventions: The CDECL keyword causes fact to be called 
with the C calling convention, which pushes parameters in reverse order 
and specifies other low-level differences. 


Parameter-passing methods: The C function above should receive the 
parameter by value. Otherwise the function will corrupt the parameter’s 
value in the calling module. True passing by value is achieved in BASIC 
only by applying BY VAL to the parameter in the DECLARE statement; 
in C, passing by value is the default (except for arrays). 
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2.4 BASIC Calls to FORTRAN 


This section applies the steps outlined in Section 2.1 to two example pro- 
grams. An analysis of programming considerations follows each example. 


2.4.1 Calling FORTRAN from BASIC— 
Subroutine Call 


The example below demonstrates a BASIC main module calling a FOR- 
TRAN subroutine, MAXPARAM. The subroutine returns no value, but 
adjusts the lower of two arguments to equal the higher argument. 


mw Example 


' BASIC source file - calls FORTRAN subroutine 


DECLARE SUB Maxparam ALIAS "MAXPAR" (A AS INTEGER, B AS INTEGER) 


' DECLARE as subprogram, since there is no return value 

' ALIAS needed because FORTRAN recognizes only first 6 letters 
' Integer parameters passed by near reference (BASIC default) 

t 


x% = 5 
Y% = 7 
PRINT USING "X% = ## Y% = ##":X% 3 Y% ' X% and Y% before call 
CALL Maxparam(X%, Y%) ' Call FORTRAN function 
PRINT USING "X% = ## Y% = ##":X% s+ Y% " X% and Y¥ after call 
END 
C FORTRAN source file, subroutine MAXPARAM 
C | 

SUBROUTINE MAXPARAM (I, J) 

INTEGER*2 I [NEAR] 

INTEGER*2 J [NEAR] 
C 
C I and J received by near reference, because of NEAR attribute 
C 

IF (I .GT. J) THEN 

J=TI 
ELSE 
T=J 
ENDIF 
END 


Naming conventions: By default, BASIC places all eight characters of 
Maxparam into the object file, yet FORTRAN places only the first six. 
This conflict is resolved with the ALIAS feature: both modules place 
MAXPAR into the object file. 
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Calling conventions: BASIC and FORTRAN use the same convention 
for calling. 


Parameter-passing methods: Since the subprogram Maxparam may 
alter the value of either parameter, both arguments must be passed by 
reference. In this case, near reference was chosen; this method 1s the de- 
fault for BASIC (so neither BY VAL nor SEG is used) and is specified in 
FORTRAN by applying the NEAR attribute to each of the parameter 
declarations. 


Far reference could have been specified by applying SEG to each argu- 
ment in the DECLARE statement. In that case, the NEAR attribute 
would not be used in the FORTRAN code. 


2.4.2 Calling FORTRAN from BASIC— 
Function Call 


The example below demonstrates a BASIC main module calling a FOR- 
TRAN function, FACT. This function returns the factorial of an integer 
value. 


m Example 


'" BASIC source file - calls FORTRAN function 
| 
DECLARE FUNCTION Fact% (BYVAL N AS INTEGER) 


' DECLARE as function returning integer (%) 
' Integer parameter passed by value 


X% = 3 

YZ = 4 

PRINT USING "The factorial of XY% is ####"; Fact% (X%) 
PRINT USING “The factorial of Y% is ####"; Fact% (Y%) 
PRINT USING "The factorial of X%+Y% is ##H#H": Fact% (X%+Y%) 
END 


C FORTRAN source file - factorial function 


INTEGER+2 FUNCTION FACT (N) 
INTEGER*2 N [VALUE] | 


C 
C N is received by value, because of VALUE attribute 
C 


INTEGERs2 I 
FACT = 1 
DO 100 I =1, N 
FACT = FACT « I 
100 CONTINUE 
RETURN 
END 
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Naming conventions: There are no conflicts with naming conventions 
because the function name, FACT, does not exceed six characters. The 
type declaration character (%) i is automatically dropped by BASIC. 


Calling conventions: BASIC and FORTRAN use the same convention 
for calling. 


Parameter-passing methods: When a parameter is passed that should 
not be changed, it is generally safest to pass the parameter by value. True 
passing by value is specified in BASIC by applying BYVAL to an argu- 
ment in the DECLARE statement; in FORTRAN, passing by value is 
achieved by applying the VALUE attribute to a parameter declaration. 
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2.5 BASIC Calls to Pascal 


This section applies the steps outlined in Section 2.1 to two example pro- 
grams. An analysis of programming considerations follows each example. 


2.5.1 Calling Pascal from BASIC— 
Procedure Call 


The example below demonstrates a BASIC main module calling a Pascal 
procedure, Maxparam. Maxparam returns no value, but adjusts the 
lower of two arguments to equal the higher argument. 


@ Example 


' BASIC source file ~- calls Pascal procedure 
t 


DECLARE SUB Maxparam (A AS INTEGER, B AS INTEGER) 


' DECLARE as subprogram, since there is no return value 
' Integer parameters passed by near reference (BASIC default) 
f 


X% = 5 
Y% = 7 

PRINT USING "X% = ## YX = #H":X% 3s Y% ' X% and Y% before call 
CALL Maxparam (X%, Y%) " Call Pascal function 
PRINT USING "X¥% = HH YY = #H':XY sY¥Y  ' X¥ and YY after call 
END 


{ Pascal source code - Maxparam procedure. } 


module Psub; 
procedure Maxparam(var a:integer; var b:integer) ; 


{ Two integer parameters are received by near reference. } 
{ Near reference is specified with the VAR keyword. } 


begin 
if a > b then 
bia 
else 
a3:=b 
end: 
end. 


Naming conventions: Note that word length is not an issue because 
Maxparam does not exceed eight characters. 


Calling conventions: BASIC and Pascal use the same calling convention. 
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Parameter-passing methods: Since the procedure Maxparam may 
alter the value of either parameter, both parameters must be passed by 
reference. In this case, near reference was chosen; this method is the de- 
fault for BASIC (so neither BYVAL nor SEG is used) and is specified in 
Pascal by declaring parameters as VAR. 


Far reference could have been specified by applying SEG to each argu- 
ment in the DECLARE statement. In that case, the VARS keyword 
would be required instead of VAR. 


2.5.2 Calling Pascal from BASIC— 
Function Call 


The example below demonstrates a BASIC main module calling a Pascal 
function, Fact. This function returns the factorial of an integer value. 


@ Example 


' BASIC source file - calls Pascal function 
t 


DECLARE FUNCTION Fact% (BYVAL N AS INTEGER) 


' DECLARE as function returning integer (%) 
' Integer parameter passed by value 
t 


X¥ = 3 
YY = 4 


PRINT USING "The factorial of X¥ is ####";: Fact% (X%) 
PRINT USING "The factorial of YY is ####"; Fact%(Y%) 
PRINT USING "The factorial of X%+Y¥% is ####"; FactY(X%+Y%) 
END 


{ Pascal source code - factorial function. } 


module Pfun: 
function Fact (n : integer) : integer; 


{ Integer parameters received by value, the Pascal default. } 


begin 
Facu.s= 15 
while n > 0 do 
begin 
Fact := Fact * n> 
MS a ls { Parameter n altered here. } 
end: 
end: 
end. 
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Naming conventions: Note that word length is not an issue because 
fact does not exceed eight characters. : 


Calling conventions: BASIC and Pascal use the same calling convention. 


Parameter-passing methods: The Pascal function above should receive 
a parameter by value. Otherwise the function will corrupt the parameter’s 
value in the calling module. True passing by value is achieved in BASIC 
aie! applying BYVAL to the parameter; in Pascal, passing by value is 
the delault. 


2.6 Restrictions on Calls from BASIC 


BASIC has a much more complex environment and initialization procedure 
than C, FORTRAN, or Pascal (all of which use a similar environment). 
Interlanguage calling between BASIC and these other languages is possible 
only because BASIC intercepts a number of library function calls from the 
other languages and handles them in its own way. In other words, BASIC 
creates a host environment in which the C, FORTRAN, and Pascal library 
routines can function. 


However, BASIC is limited in its ability to handle some C function calls. 
This section considers two kinds of limitations: C memory-allocation func- 
tions, which may require a special declaration, and C library functions, 
which cannot be called at all. 


2.6.1 Memory Allocation 


If your C module is medium model and you do dynamic memory allocation 
with malloc(), or if you execute explicit calls to _nmalloc() with any 
memory model, then you need to include the following lines in your BASIC 
source code before you call C: 


DIM mallocbuf% (2048) 
COMMON SHARED /NMALLOC/ mallocbuf% () 


_ The array can have any name; only the size of the array is significant. 
However, the name of the common block must be NMALLOC. In the 
QuickBASIC, Version 4.0, in-memory environment, you need to put this 
declaration in a module that you load into a resident Quick library. 


The example above has the effect of reserving 4k bytes of space in the com- 


mon block NMALLOC. When BASIC intercepts C malloc calls, BASIC 
allocates space out of this common block. 
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Warning 


When you call the BASIC intrinsic function CLEAR, all space allo- 
cated with near malloc calls will be lost. If you use CLEAR at all, use 
it only before any calls to malloc. 


When you make far memory requests in mixed-language programs, you 
may find it useful to first call the BASIC intrinsic function SETMEM. 
This function can be used to reduce the amount of memory BASIC 1s 
using, thus freeing up memory for far allocations. 


2.6.2 Incompatible Functions 


The following C functions are incompatible with BASIC and should be 
avoided: | 


e All forms of spawn() and exec() 


e system() 
e getenv() 
e putenv() 


In addition, you should not link with the zVARSTK.OBJ modules 
(where zis a memory model), which C provides to allocate memory from 
the stack. 
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C Calls to High-Level Languages 


Microsoft C supports calls to routines written in Microsoft FORTRAN and 
Pascal. Also, if the main program is in BASIC, then a C routine can call a 
BASIC routine. This chapter describes the necessary syntax for calling 
these other languages, and then gives examples for each language. Only 
simple parameter lists are used in this chapter. 


For information on how to pass particular kinds of data, consult Part 2, 
“Data Handling Reference.” 


3.1 The C Interface to Other Languages 


The C interface to other languages utilizes the standard C extern state- 

ment, combined with the special fortran or pascal keyword. Using either 
of these keywords causes the routine to be called with the naming and cal- 
ling conventions of FORTRAN/Pascal/BASIC. Here are the recommended 


steps for using this statement to execute a mixed-language call from C: 


1. Write an extern statement for each mixed-language routine called. 


The extern statement should precede all calls to the routine. The 
exact rules of syntax for using the fortran and pascal keywords 
with the extern statement are presented below. 


Instead of using the fortran or pascal keyword, you can simply 
compile with /Ge. The /Ge option causes all functions in the 
module to use the BASIC/FORTRAN/Pascal naming and calling 
conventions, except where you apply the cdecl keyword. 

2. Use parameter type declarations within the extern statement. 


This step is essential if you are going to specify pointers that are 
not the default size. (Near pointers are the default for medium 
model; far pointers are the default for large model.) 


3. ‘To pass an argument by reference, pass a pointer to the object. 


C automatically translates array names into addresses. Therefore, 
arrays are automatically passed by reference. 


4. Once a routine has been properly declared with an extern state- 
ment, call it just as you would call a C function. 


5. Always compile the C module in medium or large model. 
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= Using fortran and pascal Keywords 


There are two rules of syntax that apply when you use the fortran or 
pascal keyword: 


1. The fortran and pascal keywords modify the item immediately to 
the right. 


2. The special near and far keywords can be used with the fortran 
and pascal keywords in declarations. The sequences fortran far 
and far fortran are equivalent. 


The keywords pascal and fortran actually have the same effect on the 
program; the use of one or the other makes no difference except for docu- 
mentation purposes. Use either keyword to declare a BASIC routine. 


The following examples demonstrate the syntax rules presented above. 


@ Examples 
extern short pascal thing(short, short); /* Example 1 «/ 


Example 1 declares thing to be a BASIC, Pascal, or FORTRAN function 
taking two short parameters and returning a short value. 


extern void (fortran *thing) (long); /* Example 2 «/ 


Example 2 declares thing to be pointer to a BASIC, Pascal, or FOR- 
TRAN routine that takes a long parameter and returns no value. The key- 
word void is appropriate when the called routine is a BASIC subprogram, 
Pascal procedure, or FORTRAN subroutine, since it indicates that no 
return value is required. 


extern short near pascal thing(double *«); /* Example 3 +/ 
Example 3 declares thing to be a near BASIC, Pascal, or FORTRAN 
routine. The routine receives a double parameter by reference (because it 
expects a pointer to a double) and returns a short value. 


extern short pascal near thing(double x); /* Example 4 +/ 


Example 4 is equivalent to Example 3( pascal near is equivalent to 
near pascal). 
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3.2 Alternative C Interfaces 


When you call BASIC, you must use the BASIC/FORTRAN/Pascal con- 
ventions to make the call. When you call FORTRAN or Pascal, however, 
you have a choice. You can make C adopt the appropriate conventions (as 
described in the previous section), or you can make the FORTRAN or Pas- 
cal routine adopt the C conventions. 


To make a FORTRAN or Pascal routine adopt the C conventions, simply 
put the C attribute in the heading of the routine’s definition. The follow- 
ing example demonstrates the syntax for the C attribute in a FORTRAN 
subroutine-definition heading: 


SUBROUTINE FFROMC [C] (N) 
INTEGER+2 N 


The following example demonstrates the syntax for the C attribute in a 
Pascal procedure-definition heading: 


module Pmod; 
procedure Pfrome (n : integer) [C]; 
begin 


3.3 C Calls to BASIC 


No BASIC routine can be executed unless the main program is in BASIC, 
because a BASIC routine requires the environment to be initialized in a 
way that is unique to BASIC. No other language will perform this special 
initialization. 

However, it is possible for a program to start up in BASIC, call a C func- 
tion that does most of the work of the program, and then call BASIC sub- 
programs and function procedures as needed. Figure 3.1 illustrates how 
this can be done. 

The following rules are recommended when you call BASIC from C: 


1. Start up in a BASIC main module. You will need to use Quick- 
BASIC, Version 4.0 or later, and the DECLARE statement to 
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provide an interface to the C module. (See Chapter 2, “BASIC 
Calls to High-Level Languages,” for more information.) 


2. Once in the C module, declare the BASIC routine as extern, and 
include type information for parameters. Use either the fortran or 
pascal keyword to modify the routine itself. 


3. Make sure that all data are passed as a near pointer. BASIC can 
pass data in a variety of ways, but is unable to receive data in any 
form other than near reference. 


With near pointers, the program assumes that the data are in the 
default data segment. If you want to pass data that are nof in the 
default data segment (this is only a consideration with large-model 
programs), then first copy the data to a variable that is in the 
default data segment. 


4. Compile the C module in medium or large model. 


(BASIC start-up) 


CALL Csub : 
END void csub(){ 


(BASIC termination) 


SUB Btest STATIC 


END SUB 


Figure 3.1 C Call to BASIC 


The example below demonstrates a BASIC program that calls a C func- 
tion. The C function then calls a BASIC function that returns twice the 
number passed it and a BASIC subprogram that prints two numbers. 
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m@ Example 


' BASIC source 


DEFINT A-Z 

DECLARE SUB Cprog CDECL() 
CALL Cprog 

END 

FUNCTION Db1(N) STATIC 


Dbl = Ne2 
END FUNCTION 


SUB Printnum(A,B) STATIC 
PRINT "The first number is ";A 
PRINT “The second number is ";B 
END SUB 


/* C source; compile in medium or large model «/ 


extern int fortran dbl(int near *); 
extern void fortran printnum(int near *, int near *); 


void cprog() 
i! 


int near a = 5; /* NEAR guarantees that the data x/ 
int near b = 6; /* will be placed in default */ 
/* data segment (DGROUP) x / 


printf ("Twice of 5 is %d\n", dbl (&a)); 
printnum(&a, &b); 
5 


In the example above, note that the addresses of a and b are passed, 
since BASIC expects to receive addresses for parameters. Also note that 
the keyword near is used to declare each pointer; this keyword would be 
unnecessary if we knew the C module was compiled in medium model 
rather than large. 


Calling and naming conventions are resolved by the CDECL keyword in 
BASIC’s declaration of Cprog, and by fortran in C’s declaration of dbl 
and printnum. 


Note 


QuickBASIC 4.0 provides a number of “user-entry points,” which are 
BASIC system-level functions that may be called directly from C. 
These functions provide memory management, O-string services, and 
I/O procedures. Check the README file provided with QuickBASIC 
4.0 for further information. 
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3.4 C Calls to FORTRAN 


This section applies the steps outlined in Section 3.1 to two examples of 
C-FORTRAN programs. A brief analysis follows each example. os 


3.4.1 Calling FORTRAN from C— 
Subroutine Call 


The example below demonstrates a C main module calling a FORTRAN 
subroutine, maxpar. This subroutine adjusts the lower of two arguments 
to equal the higher argument. 


m Example 


/*x C source file - calls FORTRAN subroutine */ 
/* Compile in MEDIUM or LARGE model +«/ 


extern void fortran maxpar (int near *, int near *); 


/* Declare as VOID, because there is no return value +¢/ 

/*x EORTRAN keyword causes C to use BASIC/FORTRAN/Pascal 
calling and naming conventions * / 

/* Two integer params, passed by near reference «/ 


main () 
sf 
int a = 5; 
int b= 7; 
printf("a = %d, = %d", a, b): 
maxpar (&a, &b); 
printf("a = Yd, = %a", a, b):; 
C FORTRAN source file, subroutine MAXPARAM 
Cc 
SUBROUTINE MAXPARAM (I, J) 
INTEGERs«2 I [NEAR] 
INTEGER*2 J [NEAR] 
C 
Cc I and J received by near reference, because of NEAR attribute 
C 
IF (I .CT. J) THEN 
J=TI . 
ELSE 
I= J 
ENDIF 
END 
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Naming conventions: The fortran keyword directs C to call maxpar 
with the BASIC/FORTRAN/Pascal naming convention (as MAXPAR). 
Note that maxpar is six letters long; it cannot be any longer because 
FORTRAN only recognizes the first six characters of any name. 


Calling conventions: The fortran keyword directs C to call maxpar 


with the BASIC/FORTRAN/Pascal calling convention. 


Parameter-passing methods: Since the FORTRAN subroutine maxpar 
may alter the value of either parameter, both parameters must be passed 
by reference. In this case, near reference was chosen; this method is spec- 
ified in C by the use of near pointers, and in FORTRAN by applying the 
NEAR keyword to the parameter declarations. 


Far reference could have been specified by using far pointers in C. In that 

case, the FORTRAN subroutine would not use the NEAR attribute (and 

would require the FAR attribute if compiled with medium memory model 
available with FORTRAN, Version 4.0). 


3.4.2 Calling FORTRAN from C— 
Function Call 


The example below demonstrates a C main module calling a FORTRAN 
function, fact. This function returns the factorial of an integer value. 


m Example 


/* © source file - calls FORTRAN function +«/ 
/* Compile in MEDIUM or LARGE model +/ 


extern int fortran fact (int); 
/* FORTRAN keyword causes C to use BASIC/FORTRAN/Pascal 


calling and naming conventions * / 
/* Integer parameter passed by value, the C default +/ 


main () 
int x = 3: 
int y = 4; 
printf("The factorial of x is %4a", fact (x)); 
printf ("The factorial of y is %4d", fact(y)); 
printf ("The factorial of xty is %4d", fact(x+ty)); 
} 
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C FORTRAN source file - factorial function 
C 


INTEGER*2 FUNCTION FACT (N) 
INTEGER*2 N [VALUE] 


N is received by value, because of VALUE attribute 


Q0a0 


INTEGER*2 I 


100 CONTINU 


Naming conventions: The fortran keyword directs C to call fact with 
the ee Pascal naming convention (as FACT). Note that 
word length is not an issue because FACT does not exceed six characters. 


Calling conventions: The fortran keyword directs C to call fact with 
the BASIC/FORTRAN/Pascal calling convention. 


Parameter-passing methods: When a parameter is passed that should 
not be changed, it is generally safest to pass the parameter by value. Pass- 


ing by value is the default method in OC, and 1s specified in FORTRAN by 
applying the VALUE attribute to the parameter declaration. 


3.5 C Calls to Pascal 


This section applies the steps outlined in Section 3.1 to two examples of 
C-Pascal programs. A brief analysis follows each example. | 


3.5.1 Calling Pascal from C—Procedure Call 


The example below demonstrates a C main module calling a Pascal pro- 
cedure, maxpar. This procedure adjusts the lower of two arguments to 
equal the higher argument. 


H Example 


/* C source file - calls Pascal procedure +«/ 
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/* Compile in MEDIUM or LARGE model «/ 
extern void pascal maxparam (int near *, int near +); 


/* Declare as VOID, because there is no return value +«/ 

/* PASCAL keyword causes C to use BASIC/FORTRAN/Pascal 
calling and naming conventions * / 

/*x Two integer params, passed by near reference +/ 


main () 
{ 
int a = 5; 
int b = 7; 
printf ("a = %d, b = %d", a, b); 
maxparam(&a, &b); 
printf("a = %d, b = %d", a, b); 
J 


{ Pascal source code - Maxparam procedure. } 


module Psub; 
procedure Maxparam(var a:integer; var b:integer); 


{ Iwo integer parameters are received by near reference. } 
{ Near reference is specified with the VAR keyword. } 


begin 
if a > b then 
b :=a 
else 
| as=b 
end: 
end. 


Naming conventions: The pascal keyword directs C to call Maxparam 
with the BASIC/FORTRAN/Pascal naming convention (as MAXPARAM). 


Calling conventions: The pascal keyword directs C to call Maxparam 
with the BASIC/FORTRAN/Pascal naming convention. 


Parameter-passing methods: Since the procedure Maxparam may 
alter the value of either parameter, both parameters must be passed by 
reference. In this case, near reference is used; this method is specified in C 
by the use of near pointers, and in Pascal with the VAR keyword. 


Far reference could have been specified by using far pointers in C. In that 
case, the VARS keyword would be required instead of VAR in Pascal. 
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Microsoft FORTRAN supports calls to routines written in Microsoft C and 
Pascal. Also, if the main program is in BASIC, then a FORTRAN routine 
can call a BASIC routine. This chapter describes the necessary syntax for 
calling other languages from FORTRAN, and then gives examples for each 
language. Only simple parameter lists are used in this chapter. 


For information on how to pass particular kinds of data, consult Part 
2, “Data Handling Reference.” Chapter 9 describes how to use the 
VARYING attribute with FORTRAN to pass a variable number of 


parameters. 


4.1 The FORTRAN Interface to Other 


Languages 


To call another language routine from within a FORTRAN function, first 
write an interface to the routine with the INTERFACE statement. This 
statement allows you to use special keywords (attributes) that affect how 
FORTRAN carries out calls. These keywords allow you to adjust naming 
conventions, calling conventions, and parameter-passing methods so that 
you can make routines from other languages compatible with FORTRAN. 


4.1.1 The INTERFACE Statement 


Here are the recommended rules for writing correct interfaces to routines 
from other languages: 


1. Write an INTERFACE statement for each routine you call. 


Write the interface toa FUNCTION if the routine returns a 
value, or toa SUBROUTINE if the routine does not return a 
value. The INTERFACE statement should precede any calls to 
the routine. 


2. Apply the C attribute to the routine if it is written in C (unless the 
C module is compiled with /Ge or is modified with the fortran or 
pascal keyword). 


The C attribute causes the routine to be called with the C naming 
and calling conventions. It also changes the default parameter- 
passing method for all parameters to pass by value. To apply the C 
attribute, type [C] immediately after the name of the routine. 


3. If the routine is called from Pascal, you may want to apply the 
PASCAL attribute to the routine; this keyword does not change 
calling or naming conventions, but changes the default parameter- 
passing method for all parameters to pass by value. 
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To apply the PASCAL attribute, type [PASCAL] immediately 


after the name of the routine. 


4. If the name of the routine is longer than six characters, use the 
ALIAS attribute. The use of ALIAS is explained in Section 4.1.2. 


5. Adjust parameter-passing methods by applying the VALUE, 
NEAR, FAR, and REFERENCE attributes to parameter 


declarations. 


The REFERENCE attribute can be useful because the C and 
PASCAL keywords automatically change the default parameter- 
passing method to passing by value. For any given parameter, 
REFERENCE changes the method back to passing by reference. 
(By default, FORTRAN passes by far reference unless you are 
using medium memory model which is available with FORTRAN, 
Versions 4.0 and later.) 


To apply an attribute to a parameter declaration, put the attribute 
in brackets, along with any other attributes that modify the same 
object, and place the attribute(s) and brackets immediately after 
the parameter. (Refer to the examples below.) 


6. Once the proper interface is set up, call the routine just as you 
would call any FORTRAN function or subroutine. 


# Examples 


In the examples below, the variables N, I, and J are not significant, 
except for their types and attributes. 


INTERFACE TO SUBROUTINE TEST [PASCAL] (N) 
INTEGER*2 N [NEAR, REFERENCE] 
END 


The first example declares the subroutine TEST with the PASCAL attri- 
bute. This subroutine takes one argument, N, which has both the NEAR 
and REFERENCE attributes. N is passed by near reference. 


INTERFACE TO FUNCTION REAL«#8 CFUN [C] (I,J) 
REAL*8 I [REFERENCE] 

REAL*8 J 

END | 


The second example declares a C function, CFUN, which returns a value of 
type REAL#8. The argument I is passed by far reference because of the 
REFERENCE attribute; the argument J is passed by value because the 
C attribute changes the default. 
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4.1.2 Using ALIAS 
The ALIAS attribute is used with the following syntax 
ALIAS: ' altasname' 


where aliasname is the name that FORTRAN will actually place in the 
object code whenever the declared routine is called. When you use this 
feature, alzasname is precisely what FORTRAN will place in the object 
code; therefore, if you are linking to a C routine, be sure to type a leading 
underscore (_) before the name. 


The ALIAS feature is necessary when the name of a routine is longer than 
6 characters. Without ALIAS, FORTRAN would place only the first 6 
characters into the object file, while the other language would place 7 or 8 
characters into the other object file (or up to 40 in the case of BASIC). 
This difference would prevent the linker from finding a match. 


= Example 


INTERFACE TO PRININUM [C, ALIAS: '_printnum'] (N) 
INTEGER«2 N 
END 


In the example above, ALIAS is used because PRINTNUM is longer than 
six characters. Note that the leading underscore should be used only when 
linking to a routine that uses the C naming convention. 


4.2 Alternative FORTRAN Interface to C 


Instead of modifying the behavior of FORTRAN with the C attribute, you 
can modify the behavior of C by applying the pascal or fortran keyword 
to the function definition heading. (These two keywords are functionally 
equivalent). Or you can compile the C module with the /Ge option, which 
specifies that all C functions, calls, and public symbols use the 
BASIC/FORTRAN/Pascal conventions. 


For example, the following C function uses the BASIC/FORTRAN/Pascal 


conventions to receive an integer parameter: 


int fortran funi(n) 
int n; 
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4.3 FORTRAN Calls to BASIC 


Calls to BASIC from FORTRAN programs are not directly supported. No 
BASIC routine can be executed unless the main program is in BASIC, 
because a BASIC routine requires the environment to be initialized in a 
way that is unique to BASIC. No other language will perform this special 
initialization. 

However, it is possible for a program to start up in BASIC, call a FOR- 
TRAN function that does most of the work of the program, and then call 
BASIC subprograms and function procedures as needed. Figure 4.1 illus- 
trates how this can be done. 


Here are the recommended rules for calling BASIC from FORTRAN: 


1. Start up in a BASIC main module. You will need to use Quick- 
BASIC, Version 4.0 or later, and may want to use the DECLARE 
statement to write an interface to the principal FORTRAN rou- 
tine. (See Chapter 2, “BASIC Calls to High-Level Languages,” for 
more information.) 


2. Write an interface in FORTRAN for each BASIC routine you plan 
to call. Since BASIC and FORTRAN use the same basic calling 
convention, no special keyword is required to make FORTRAN 
compatible with BASIC. 


3. Make sure that all data are passed as a near pointer. BASIC can 
pass data in a variety of ways, but is unable to receive data in any 
form other than near reference. 


With near pointers, the program assumes that the data are in the 
default data segment. If you want to pass data that are not in the 
default data segment (this is only a consideration with large model 
programs), then first copy the data to a variable that is in the 
default data segment. 


m Example 


The example below demonstrates a BASIC program which calls a FOR- 
TRAN subroutine. The FORTRAN subroutine then calls a BASIC func- 
tion that returns twice the number passed it, and a BASIC subprogram 
that prints two numbers. 
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* BASIC source 
| 


DEFINI A-Z 

DECLARE SUB Fprog () 
CALL Fprog 

END 


FUNCTION Db1(N) STATIC 
Dbl = N+2 

END FUNCTION 

f 


SUB Printnum(A,B) STATIC 
PRINT "The first number is “:A 
PRINT "The second number is ":B 

END SUB 


FORTRAN subroutine 
Calls a BASIC function that receives one integer, 
and a BASIC subprogram that takes two integers. 


QAO00 


INTERFACE TO INTEGER*+2 FUNCTION DBL (N) 
INTEGER*2 N [NEAR] 
END 


ALIAS attribute necessary because BASIC recognizes more 
than six characters of the name "Printnum" 


QAAaAN 


INTERFACE TO SUBROUTINE PRINTN [ALIAS:'Printnum'} (N1, N2) 
INTEGER*2 N1 [NEAR] 

INTEGER*+2 N2 [NEAR] 

END 


Parameters must be declared NEAR in the parameter 
declarations; BASIC receives ONLY 2-byte pointers 


QaQ0A 


SUBROUTINE FPROG 
INTEGER*2 DBL 

INTEGER*2 A,B 

A=5 

B= 6 

WRITE (*,+) "Twice of 5 is ', DBL(A) 
CALL PRINTN (A,B) 

END 


In the example above, note that the NEAR attribute is used in the FOR- 
TRAN routines, so that near addresses will be passed to BASIC instead of 
far addresses. 
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(BASIC start-up) 


CALL Fsub 
aN? SUBROUTINE FSUB 


(BASIC termination) 


CALL BTEST 
SUB Btest STATIC 


RETURN 
END 


END SUB 


Figure 4.1 FORTRAN Call to BASIC 


4.4 FORTRAN Calls to C 


Writing FORTRAN interfaces to C is fairly straightforward; however, if 
you are using Version 4.0 of FORTRAN, then linking requires some addi- 
tional steps, which are described in Chapter 1. 


This section applies the steps outlined in Section 4.1 to two examples of 
FORTRAN-C programs. A brief analysis follows each example. 


4.4.1 Calling C from FORTRAN— 
No Return Value 


The example below demonstrates a FORTRAN main module calling a C 
function, maxparam. This function returns no value but adjusts the lower 
of two parameters to equal the higher argument. 
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m Example 


C FORTRAN SOURCE FILE - CALLS C FUNCTION, NO RETURN VALUE 


INTERFACE TO SUBROUTINE MAXPARAM[C, ALIAS: '_maxparam'] (I,J) 
INTEGER*2 I [NEAR, REFERENCE] 

INTECER+2 J [NEAR, REFERENCE] 

END 


C 
C C ATTRIBUTE DIRECTS FORTRAN TO USE C CONVENTIONS 
€ ALIAS NECESSARY BECAUSE 'MAXPARAM' LONGER THAN 6 CHARS. 
C EACH PARAMETER PASSED BY NEAR REFERENCE 
Cc 

INTEGERs«2 I,J 

J = 7 

WRITE..(a,a) 1 St rey 

CALL MAXPARAM(TI, J) 

WRITE (4,%*) ‘I= ',I,' J=', J 

END 


/* C source file +/ 
/* Compile in MEDIUM or LARGE memory model +/ 
/* Maxparam declared VOID because no return value +*/ 


void maxparam(pl, p2) 


int near *pl1; /* Integer params received by near ref. «/ 
int near *p2; | /* NEAR keyword not needed in MEDIUM model +/ 
< 
if (*pl > *p2) 
*p2 = «pl; 
else 
*pl = *p2; 


Naming conventions: By default, FORTRAN only places the first six 
characters of MAXPARAM into the object file, whereas C places all eight. 
This conflict is resolved with the ALIAS attribute: both modules place 
_maxparam (consistent with the C naming convention) into an object file. 


Calling conventions: The C attribute (in the INTERFACE statement) 
causes MAXPARAM to be called with the C calling convention, which 
pushes parameters in reverse order and specifies other lower-level 
differences. 


Parameter-passing methods: Since the function maxparam may alter 
the value of either parameter, both must be passed by reference. Near 
reference is implemented in FORTRAN with the NEAR and REFER- 
ENCE attributes, and in C by using near pointers. The REFERENCE 
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attribute is necessary in FORTRAN because the C keyword changes the 
default passing method to pass by value. 


Far reference could have been specified by leaving off the NEAR keyword 
from the FORTRAN parameter declarations. In that case, the C module 
would need to use far pointers. 


4.4.2 Calling C from FORTRAN— 
Function Call 


The example below demonstrates a FORTRAN main module calling a C 
function, fact. This function returns the factorial of an integer value. 


m” Example 


Cc FORTRAN SOURCE FILE - CALLS C FUNCTION 
C 
INTERFACE TO INTEGER«*2 FUNCTION FACT [C] (N) 
INTEGER*2 N 
END 
Cc 
Cc C ATTRIBUTE DIRECTS FORTRAN TO USE C CONVENTIONS 
C PARAMETER PASSED BY VALUE, WHICH IS DEFAULT WHEN 
C C ATTRIBUTE IS IN USE 
C 


INTEGER*2 FACT 
INTEGERs2 I,J5 


I = 3 
oe — 
WRITE (*,*) 'The factorial of I is ',FACT(I) 


( 
WRITE (*,*) ‘The factorial of J is ',FACT(J) 
(*,*) 'The factorial of I+J is ',FACT(I+J) 


/* C source file *«/ 
/* Compile in MEDIUM or LARGE model +/ 
/* Factorial function, returning integer +*/ 


int fact (n) 


int n: /* Integer received by value, the C default +/ 
{ 
int result = Ll; 
while (n) 
result *= n--; /* Parameter n modified here «/ 


return (result); 


} 


Naming conventions: The C attribute (in the INTERFACE state- 
ment) causes FACT to be called with the C naming convention (as _ fact). 
Word length is not a concern; fact does not exceed six characters. 
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Calling conventions: The C attribute (in the INTERFACE statement) 
causes FACT to be called with the C calling convention, which pushes 
parameters in reverse order and specifies other lower-level differences. 


Parameter-passing methods: The C function above should receive the 
parameter by value. Otherwise, the function will corrupt the parameter’s 
value in the calling module. Passing by value is the default method for C; 
it is also the default method for FORTRAN whenever the C attribute is in 


use. 


4.5 FORTRAN Calls to Pascal 


Calling Pascal from FORTRAN is usually fairly simple, because the PAS- 
CAL attribute causes FORTRAN to use the Pascal default of passing 
data by value. 


This section applies the steps outlined in Section 4.1 to two examples of 
FORTRAN-Pascal programs. A brief analysis follows each example. 


4.5.1 Calling Pascal from FORTRAN— 
Procedure Call 


The example below demonstrates a FORTRAN main module calling a Pas- 
cal procedure, Maxparam. This procedure adjusts the lower of two 
parameters to equal the higher argument. 


a Example 


C FORTRAN SOURCE FILE - CALLS PASCAL PROCEDURE 
C 
INTERFACE TO SUBROUTINE MAXPARAM [ALIAS:'MAXPARAM'] (I,J) 
INTEGER*2 I [NEAR] 
INTEGER+2 J [NEAR] 
END 


ALIAS NECESSARY BECAUSE 'MAXPARAM' LONGER THAN 6 CHARS. 
EACH PARAMETER PASSED BY NEAR REFERENCE 


QAaAAQA 


INTEGER+2 I,J 
La 5 
79 
WRITE. (4%). "I =-7)1,° J = 


| 
c 


55 


Microsoft Mixed-Language Programming Guide 


{ Pascal source code - Maxparam procedure. } 


module Psub; 
procedure Maxparam(var a:sinteger; var b:integer); 


{ Two integer parameters are received by near reference. } 
{ Near reference is specified with the VAR keyword. } 


begin 
if a > b then 
bit=a 
else 
as:=b 
end: 
end. 


Naming conventions: By default, FORTRAN only places the first six 
characters of MAXPARAM into the object file, whereas Pascal places all 
eight. The ALIAS attribute resolves this conflict: both modules place 
MAXPARAM into an object file. 


Calling conventions: FORTRAN and Pascal use the same convention for 
calling. 


Parameter-passing methods: Since the procedure Maxparam may alter 
the value of either parameter, both must be passed by reference. Near ref- 
erence was implemented in FORTRAN with the NEAR attributes, and in 
Pascal with the VAR keyword. The PASCAL attribute is not used here 


because no parameter is being passed by value. 


Far reference could have been specified by leaving off the NEAR keyword 
from the FORTRAN parameter declarations. In that case, the Pascal mod- 
ule would use VARS instead of VAR. 


4.5.2 Calling Pascal from FORTRAN— 
Function Call 


The example below demonstrates a FORTRAN main module calling a Pas- 
cal function, Fact. This function returns the factorial of an integer value. 


=H Example 


C FORTRAN SOURCE FILE - CALLS PASCAL FUNCTION 


C 
INTERFACE TO INTEGER%*2 FUNCTION FACT [PASCAL] (N) 


INTEGER+2 N 
END 
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C 
C PARAMETER PASSED BY VALUE, WHICH IS DEFAULT WHEN 
C PASCAL ATTRIBUTE IS IN USE 
C 
INTEGER+2 FACT 
INTEGER*«2 I,J 
I = 3 
J=4 | 
WRITE (*,%) ‘The factorial of I is ',FACT(I) 
WRITE (*,%*) ‘The factorial of J is ',FACT(J) 
WRITE (*,%*) ‘The factorial of I+tJ is ‘,FACT(1I+J) 
END 
{ Pascal source code - factorial function. } 


module Pfun; 
function Fact (n : integer) : integer; 


{Integer parameters received by value, the Pascal default. } 


begin 
Fact := 1: | 
while n > O do 
begin 
Fact := Fact * n: 
A t= n= 1 {Parameter n modified here.} 
end; 
end: 
end. 


Naming conventions: FORTRAN and Pascal use a similar naming con- 
vention. The ALIAS attribute is not necessary because the function name 
does not exceed six characters. 


Calling conventions: FORTRAN and Pascal use the same calling con- 
vention. 


Parameter-passing methods: The Pascal function above should receive 
the parameter by value. Otherwise, the function will corrupt the 
parameter’s value in the calling module. Passing by value is the default 
method for Pascal; it is also the default method for FORTRAN whenever 
the PASCAL attribute 1s in use. 
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Pascal Calls to High-Level Languages 


Microsoft Pascal supports calls to routines written in Microsoft FOR- 
TRAN and C. Also, if the main program is in BASIC, then a Pascal rou- 
tine can call a BASIC routine. This chapter describes the necessary syntax 
for calling these other languages, and then gives examples for each 
language. Only simple parameter lists are used in this chapter. 


For information on how to pass particular kinds of data, consult Part 2, 
“Data Handling Reference.” Chapter 9 describes how to use the VARY- 
ING attribute with Pascal to pass a varying number of parameters. 


o.1 


The Pascal Interface to Other Languages 


You can provide an interface from Pascal to a routine in a different pro- 
gramming language. This interface is created by writing an extern func- 
tion or procedure declaration. This declaration informs Pascal that the 
routine is to be found in another module; furthermore, you can use special 
keywords with the declaration to affect how Pascal makes calls to the rou- 
tine. These keywords allow you to adjust naming conventions, calling con- 
ventions, and parameter-passing methods, so that the other language rou- 
tines will be compatible with Pascal. 


Here are the recommended steps for writing an extern declaration: 


1. 


Declare a function (for routines that return values) or a procedure 
(for routines that do not); all normal rules of Pascal syntax apply 

to the heading. Instead of writing a procedure body, however, sim- 
ply type the word extern, followed by a semicolon (;). 


The extern can be placed in the procedure declaration section of 
any Pascal function or procedure that needs to call the different 
language routine. 


If you are calling a C function, attach the C attribute to the 
declaration. To use this attribute, type C in brackets, at the very 
end of the function or procedure heading (immediately before the 
semicolon). 


This attribute directs Pascal to use the C naming and calling con- 
ventions. There is no similar keyword for FORTRAN or BASIC; 
they use the same naming and calling conventions used by Pascal. 


Decide how you want to pass each parameter. By default Pascal 
passes parameters by value. The VAR keyword, applied to indivi- 
dual parameters, specifies passing by near reference, and the 
VARS keyword specifies passing by far reference. 


Once the routine is properly declared, call it just as though it were 
a Pascal function or procedure. 
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m= Examples 
procedure Calc(var i:integer; x:real) [C]; extern; 


In the example above, the C attribute directs Pascal to use the C calling 
and naming conventions. 


function Quadratic(a,b,c : integer) : real [C]; extern; 


In this example also, the C attribute directs Pascal to use the C calling 
and naming conventions. 


procedure Total (a,b,c : integer, var sum : integer); extern; 


The third example, by default, uses the BASIC/FORTRAN/Pascal stan- 
dard naming and calling conventions. 


5.2 Alternative Pascal Interface to C 


Instead of modifying the behavior of Pascal with the C attribute, you can 
modify the behavior of C by applying the pascal or fortran keyword to 
the function definition heading. (These two keywords are functionally 
equivalent.) You can also compile the C module with the /Ge option, 
which specifies that all C functions, calls, and public symbols use the 
BASIC ii ORTRAN/Pascal conventions. 


# Example 


int pascal fun1 (n) 
int n; 


In the example above, the C function uses the BASIC/FORTRAN/Pascal 


conventions to receive an integer parameter. 


5.3 Pascal Calls to BASIC 


Calls to BASIC from Pascal programs are not directly supported. No 
BASIC routine can be executed unless the main program is in BASIC 
because a BASIC routine requires the environment to be initialized in a 
unique way. No other language will perform this special initialization. 
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However, it is possible for a program to start up in BASIC, call a Pascal 
routine that does most of the work of the program, and then call BASIC 
subprograms and function procedures as needed. The following diagram 
illustrates how this can be done: 


(BASIC start-up) 
CALL Psub 


END 


a PROCEDURE Psub; 
(BASIC termination) 


SUB Btest STATIC 


END SUB 


Figure 5.1 Pascal Call to BASIC 


Observe the following steps when calling BASIC from Pascal: 


1. Start up in a BASIC main module. You will need to use Quick- 
BASIC, Version 4.0 or later, and may want to use the DECLARE 
statement to write an interface to the principal Pascal routine. (See 
Chapter 2, “BASIC Calls to High-Level Languages,” for additional 


information.) 


2. Once in Pascal code, declare each BASIC routine you plan to call, 
in an extern procedure or function declaration. 


3. Make sure that all data are passed as a near pointer, by declaring 
each argument with VAR. BASIC can pass data in a variety of 
ways, but is unable to receive data in any form other than as a 
hear pointer. 
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With near pointers, the program assumes that the data are in the 
default data segment. If you want to pass data that are nof in the 
default data segment (this is only a consideration with far-heap 
allocation), then first copy the data to a variable that is in the 
default data segment. 


m Example 


The following example demonstrates a BASIC program which calls a Pas- 
cal procedure. The Pascal procedure then calls a BASIC function that 
returns twice the number passed it, and a BASIC subprogram that prints 
two numbers. 


' BASIC source 
DEFINT A-Z 

DECLARE SUB Pprog () 
CALL Pprog 

END 


FUNCTION Dbl (N) STATIC 
Dbl = Ne2 
END FUNCTION 


SUB Printnum(A,B) STATIC 
PRINT "The first number is ":A 
PRINT "The second number is ":B 
END SUB 


{* Pascal procedure *} 
{* Calls a BASIC function and a BASIC subprogram *} 


module pproc; 
procedure Pprog(); 


function Dbl (var n:integer) :integer; extern; 
procedure Printnum (var nl,n2:integer); extern; 
var a,b:integer; 


begin 
a:= 5: 
b 3= 6; 


writeln (‘Twice of 5 is ', Dbl (a)); 
Printnum (a,b); 
end; 
end. 


In the example above, note that every argument in the external declara- 
tions must be declared VAR, since BASIC can only receive near pointers 
as parameters. 
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5.4 Pascal Calls to C 


This section apphes the steps outlined in Section 5.1 to two examples of 
Pascal-C programs. A brief analysis follows each example. 


5.4.1 Calling C from Pascal—No Return Value 


The example below demonstrates a Pascal main module calling a C func- 
tion, maxparam. This function returns no value, but adjusts the lower of 
two arguments to equal the higher. 


# Example 


{ Pascal source file - calls C function, no return value } 


program Pcsub (input, output); 
procedure Maxparam (var i,j : integer) [C]; extern; 


{ C attribute directs Pascal to use C conventions. } 
{ VAR indicates each parameter passed by near reference. } 


var 
a, b : integer; 
begin 
a t= 5% 
b := 7: 
writeln('a = ',a,'b = ',b): 
Maxparam (a,b); 
writeln('a = ',a,'b = ',b): 
end. 


/* © source file «/ 
/* Compile in MEDIUM or LARGE memory model +#/ 
/* Maxparam declared VOID because no return value */ 


void maxparam(pl, p2) 


int near «pl; /* Integer params received by near ref. +/ 
int near *p2; /* NEAR keyword not needed in MEDIUM model «/ 
if (*pl > *p2) 
*ep2 = xpl; 
else 
*pl = *p2; 


t 


Naming conventions: The C attribute causes Maxparam to be called 
with the C naming convention (as _maxparam). 
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Calling conventions: The C attribute causes Maxparam to be called 
with the C calling convention, which pushes parameters in reverse order. 


Parameter-passing methods: Since the subprogram Maxparam may 
alter the value of either parameter, both arguments must be passed by 
reference. In this case, near reference was chosen; this method 1s specified 
in Pascal with the VAR keyword, and in C by using near pointers. 


Far reference could have been specified by using VARS instead of VAR; 
in that case, the C parameter declarations would use far pointers. 


5.4.2 Calling C from Pascal—F unction Call 


The example below demonstrates a Pascal main module calling a C func- 
tion, fact. This function returns the factorial of an integer value. 


= Example 


{ Pascal source file - calls C function } 


program Pefun (input, output); 
function Fact (n : integer) [C]; extern; 


{ C attribute directs Pascal to use C conventions. } 
{ Parameter passed by value, the default method. } 


var 
a, b : integer; 
begin 
as:= 3; 
b := 4: 
writeln('The factorial of a is ', Fact(a)); 
writeln('The factorial of b is ', Fact(b)); 
writeln('The factorial of atb is ', Fact(atb)); 
end. 


/* C source file «/ 
/* Compile in MEDIUM or LARGE model +*/ 
/* Factorial function, returning integer */ 


int fact (n) 


int n; /* Integer received by value, the C default +/ 
1. 
int result = 1; 
while (n) 
result *= n--; /* Parameter n modified here «/ 


return (result); 
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Naming conventions: The C attribute causes Fact to be called with the 
C naming convention (as _fact). 


Calling conventions: The C attribute causes Fact to be called with the 
C calling convention, which pushes parameters in reverse order, and spec- 
ifies other low-level differences. 


Parameter-passing methods: The C function should receive the integer 
parameter by value. Otherwise, the function will corrupt the value of the 
parameter in the calling routine. Passing by value is the default method 
for both Pascal and C. 


5.5 Pascal Calls to FORTRAN 


This section applies the steps outlined in Section 5.1 to two examples of 
Pascal-FORTRAN programs. A brief analysis follows each example. 


5.5.1 Calling FORTRAN from Pascal— 
Subroutine Call 


The example below demonstrates a Pascal main module calling a FOR- 
TRAN subroutine, MAXPARAM. This subroutine adjusts the lower of two 
arguments to equal the higher. 


” Example 


{ Pascal source file - calls FORTRAN subroutine } 


program Pfsub (output); 
procedure Maxpar (var i,j : integer) ; extern: 


{ Name must not exceed six characters. } 
{ VAR indicates each parameter passed by near reference. } 


var 
a, b : integer; 

begin 
aon 
b 3= 7; 
writeln('a = ',a,'b 
Maxpar (a,b); 
writeln(‘a 

end. 


Ta 
un 
i 
2 


Il ~ 
on 
i 
oO’ 
— 
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C FORTRAN source file, subroutine MAXPARAM 
C 


SUBROUTINE MAXPARAM (I, J) 
INTEGER«2 I [NEAR] 
INTEGER*2 J [NEAR] 


@ | 
C I and J received by near reference, because of NEAR attribute 
C | 
IF (I .GI. J) THEN 
J=I1 
ELSE 
I=J 


ENDIF 
END 


Naming conventions: By default, Pascal places all eight characters of 
Maxparam into the object file, whereas FORTRAN places only the first 
six. This conflict is resolved by shortening the name of the Pascal routine 
to six characters. 


Calling conventions: Pascal and FORTRAN use the same calling con- 
vention. 


Parameter-passing methods: Since the subprogram Maxparam may 
alter the value of either parameter, both arguments must be passed by 
reference. In this case, near reference was chosen; this method is specified 
in Pascal with the VAR keyword, and in FORTRAN by applying the 
NEAR attribute to each parameter declaration. 


Far reference could have been chosen by using VARS instead of VAR. In 
that case, the NEAR attribute would not be used in the FORTRAN 
parameter declarations. 


5.5.2 Calling FORTRAN from Pascal— 
Function Call | 


The example below demonstrates a Pascal main module calling a FOR- 
TRAN function, FACT. This function returns the factorial of an integer 
value. 
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= Example 


{ Pascal source file - calls FORTRAN function } 


program Pffun (output); 
function Fact (n : integer); extern; 


{ Parameter passed by value, the default method. } 


var 
a, b : integer; 
begin 
a := 3; 
b := 4; 
writeln('The factorial of a is ', Fact(a)): 
writeln('The factorial of b is ', Fact(b)); 
writeln('The factorial of atb is ', Fact(atb)); 
end. 


C FORTRAN source file - factorial function 


INTEGER+*2 FUNCTION FACT (N) 
INTEGER*+2 N [VALUE] 


N is received by value, because of VALUE attribute 


MAD 


INTEGER*2 I 
FACT = 1 
DO 100 I=1, N 
FACT = FACT « I 
100 CONTINUE 
RETURN 
END 


Naming conventions: There are no conflicts with naming conventions, 
because the function name (FACT) does not exceed six characters. 


wes: conventions: Pascal and FORTRAN use the same convention for 
calling. 


Parameter-passing methods: When passing a parameter that should 
not be changed, it is generally safest to pass the parameter by value. Pass- 
ing by value is the default method in Pascal, and is specified in FORTRAN 
by applying the VALUE attribute to a parameter declaration. 
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Assembly-to-High-Level Interface 


With the Microsoft Macro Assembler you can write assembly modules that 
can be linked to modules developed with Microsoft BASIC, C, Pascal, or 
FORTRAN. This chapter first outlines the recommended programming 
guidelines for writing assembly routines compatible with Microsoft high- 
level languages; it then gives examples specific to each language. 


Writing assembly routines for Microsoft high-level languages is easiest 
when you use the simplified segment directives provided with the Macro 
Assembler, Version 5.0. In general, this manual assumes that you have 
Version 5.0. For information on writing assembly-language interfaces 
without the simplified segment directives, turn to Section 6.7 in order to 


look up SEGMENT, GROUP, and ASSUME statements. 


6.1 Writing the Assembly Procedure 


The Microsoft BASIC, C, FORTRAN, and Pascal compilers use roughly 
the same interface for procedure calls. This section describes the interface, 
so that you can call assembly procedures using essentially the same 
methods as Microsoft compiler-generated code. Procedures written with 
these methods can be called recursively and can be effectively used with 
the Stack Trace feature of the Microsoft CodeViewe debugger. 


The standard assembly-interface method consists of these steps: 


e Setting up the procedure 

e Entering the procedure 

e Allocating local data (optional) 
e Preserving register values 

e Accessing parameters 

e Returning a value (optional) 


e Exiting the procedure 


sections 6.1.1-6.1.7 describe each of these steps. 


6.1.1 Setting Up the Procedure 


The linker cannot combine the assembly procedure with the calling pro- 
gram unless compatible segments are used and unless the procedure itself 
is declared properly. The following points may be helpful: 


1. Use the MODEL directive at the beginning of the source file, if 


you have Version 5.0 of the Macro Assembler; this directive 
automatically causes the appropriate kind of returns to be 
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generated (NEAR for small or compact model, FAR otherwise). 
Modules called from Pascal should be declared as MODEL 
LARGE; modules called from BASIC should be MODEL 
MEDIUM. If you have a version of the assembler previous to 5.0, 
declare the procedure FAR (or NEAR if the calling program is 
small- or compact-model C). 


2. If you have Version 5.0 or later of the Microsoft Macro Assembler, 
use the simplified segment directives .CODE to declare the code 
segment and .DATA to declare the data segment. (Having a code 
segment is sufficient if you do not have data declarations.) If you 
are using an earlier version of the assembler, look up SEGMENT, 
GROUP, and ASSUME directives in Section 6.7, “The Microsoft 
Segment Model.” 


3. The procedure label must be declared public with the PUBLIC 
directive. This declaration makes the procedure available to be 
called by other modules. Also, any data you want to make public 
to other modules must be declared as PUBLIC. 


4. Global data or procedures accessed by the routine must be declared 
EXTRN. The safest way to use EXTRN 1s to place the directive 
outside of any segment definition (however, near data should gen- 
erally go inside the data segment). 


6.1.2 Entering the Procedure 
Two instructions begin the procedure: 


push bp 
mov bp, sp 


This sequence establishes BP as the “framepointer.” The framepointer is 
used to access parameters and local data, which are located on the stack. 
SP cannot be used for this purpose because it 1s not an index or base regis- 
ter. Also, the value of SP may change as more data are pushed onto the 
stack. However, the value of the base register BP will remain constant 
throughout the procedure, so that each parameter can be addressed as a 
fixed displacement off of BP. 


The instruction sequence above first saves the value of BP, since it will be 
needed by the calling procedure as soon as the current procedure ter- 
minates. Then BP is loaded with the value of SP in order to capture the 
value of the stack pointer at the time of entry to the procedure. 
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6.1.3 Allocating Local Data (Optional) 


An assembly procedure can use the same technique for implementing local 
data that is used by high-level languages. To set up local data space, sim- 
ly decrease the contents of SP in the third instruction of the procedure. 
To ensure correct execution, you should always increase or decrease SP 
by an even amount.) Decreasing SP reserves space on the stack for the 

local data. The space must be restored at the end of the procedure. 


push bp 
mov bp, sp 
sub Sp, space 


In the text above, space is the total size in bytes of the local data. Local 
variables are then accessed as fixed, negative displacements off of BP. 


= Example 


push bp 

mov bp, sp 

sub sp,4 

mov WORD PTR [bp-2],0 
mov WORD PTR [bp-4] ,0 


The example above uses two local variables, each of which is two bytes in 
size. SP is decreased by 4, since there are four bytes total of local data. 
Later, each of the variables is initialized to 0. These variables are never 
formally declared with any assembler directive; the programmer must keep 
track of them manually. 


Local variables are also called dynamic, stack, or automatic variables. 


6.1.4 Preserving Register Values 


A procedure called from any of the Microsoft high-level languages should 
preserve the values of SI, DI, SS, and DS (in addition to BP, which is 
already saved). Therefore, push any of these register values that the pro- 
cedure alters. If the procedure does not change the value of any of these 
registers, then the registers do not need to be pushed. 
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The recommended method (used by the high-level languages) is to save 
registers after the framepointer is set and local data (if any) are allocated. 


push bp 3 Save old framepointer 

mov bp, sp ; Establish current framepointer 
sub sp,4 ; Allocate local data space 
push si ; Save SI and DI 


push di 


In the example above, DI and SI (in that order) must be popped before the 
end of the procedure. | 


6.1.5 Accessing Parameters 


Once you have established the procedure’s framepointer, allocated local 
data space (if desired), and pushed any registers that need to be preserved, 
you can write the main body of the procedure. In order to write instruc- 
tions that can access parameters, consider the general picture of the stack 
frame after a procedure call as illustrated in Figure 6.1. 


The stack frame for the procedure is established by the following sequence 
of events: 


1. 


The calling program pushes each of the parameters on the stack, 
after which SP points to the last parameter pushed. 


The calling program issues a CALL instruction, which causes the 
return address (the place in the calling program to which control 
will ultimately return) to be placed on the stack. This address may 
be either two bytes long (for near calls) or four bytes long (for far 
calls). SP now points to this address. 


The first instruction of the called procedure saves the old value of 
BP, with the instruction push bp. SP now points to the saved 
copy of BP. 


BP is used to capture the current value of SP, with the instruction 
mov bp,sp. BP therefore now points to the old value of BP. 


Whereas BP remains constant throughout the procedure, SP may 
be decreased to provide room on the stack, for local data or saved 
registers. 


In general, the displacement (off of BP) for a parameter X is equal to: 
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+ total size of parameters between X and BP 
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For example, consider a FAR procedure that has received one parameter, 
a two-byte address. The displacement of the parameter would be: 


Argument's displacement = ize of return address 


Il 
Anh 

+ + 

wd 


The argument can thus be loaded into BX with the following instruction: 
mov bx, [pbpt+6] 


Once you determine the displacement of each parameter, you may want to 
use string equates or structures so that the parameter can be referenced 
with a single identifier name in your assembly source code. For example, 
the parameter above at BP+6 can be conveniently accessed if you put the 
following statement at the beginning of the assembly source file: 


Argl EQU [bp+6] 


You could then refer to this parameter as Argl in any instruction. Use of 
this feature is optional. 


Parameter 
' Parameter 


| Return address 


Figure 6.1 The Stack Frame 
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Note 


Microsoft high-level languages always push segment addresses before 
pushing offset address. Furthermore, when pushing arguments larger 
than two bytes, high-order words are always pushed before low-order 
words. 


This standard for pushing segment addresses before pushing offset 
addresses facilitates the use of the LES instruction, as demonstrated 
in Section 6.4, “Calls from FORTRAN.” 


6.1.6 Returning a Value (Optional) 
Microsoft BASIC, C, FORTRAN, and Pascal share similar conventions for 


recelving return values. The conventions are the same when the data type 
to be returned is simple (that is, not an array or structured type) and is no 
more than four bytes long. This includes all NEAR and FAR address 
types (in other words, all pointers and all parameters passed by reference). 


Data size Returned in register 

1 byte AL 

2 bytes AX 

4 bytes High-order portion (or segment address) in DX; 


low-order portion (or offset address) in AX 


When the return value is larger than four bytes, a procedure called by C 
must allocate space for the return value and then place its address in 

‘AX. A convenient way to create space for the return value is to sim- 
ply declare it in a data segment. 


If your assembly procedure is called by BASIC, FORTRAN or Pascal, then 
it must use a special convention in order to return floating-point values, 
records, user-defined types and arrays, and values larger than four bytes. 
This convention is presented below. 


= BASIC/FORTRAN/Pascal Long Return Values 
In order to create an interface for long return values, BASIC, FORTRAN 


ae Pascal modules take the following actions before they call your pro- 
cedure: 


78 


Assembly-to-High-Level Interface 


1. First they create space, somewhere in the stack segment, to hold 
the actual return value. 


2. When the call to your procedure is made, an extra parameter is 
passed; this parameter contains the offset address of the actual 
return value. This parameter is placed immediately above the 
return address. (In other words, this parameter is the last one 
pushed. ) 


3. The segment address of the return value is contained in both SS 
and DS. 


The extra parameter (which contains the offset address of the return 
value) is always located at BP-+6. Furthermore, its presence automati- 
cally increases the displacement of all other parameters by two, as shown 
in the following comparison: 


Parameter 


Return value offset 


(4 bytes) 


Return address 


Saved BP ie byles) 


Return address | = 


Saved BP 


Figure 6.2 BASIC/FORTRAN/Pascal Long Return Values 


Your assembly procedure will successfully return a long value if you follow 
these steps: 


1. Put the data for the return value at the location pointed to by the 
return value offset. 


2. Copy the return-value offset (located at BP+6) to AX, and copy 
SS to DX. This is necessary because the calling module expects 
DX:AX to point to the return value. 


3. Exit the procedure as described in the next section. 
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6.1.7 Exiting the Procedure 


Several steps may be involved in terminating the procedure: 


1, 


If any of the registers SS, DS, SI, or DI have been saved, these 
must be popped off the stack in the reverse order that they were 
saved. 


If local data space was allocated at the beginning of the procedure, 
SP must be restored with the instruction mov sp, bp. 


Restore BP with pop bp. This step is always necessary. 


Finally, return to the calling program with ret. If the BASIC, 
FORTRAN, or Pascal calling convention is in use, then use the 
ret nform of the instruction to adjust the stack with respect to 
the parameters that were pushed by the caller. (If the procedure is 
called by a C module, then the calling module will perform this 
adjustment.) 


= Examples 


pop bp 
ret 


The example above shows the simplest possible exit sequence. No registers 
were saved, no local data space was allocated, and the C calling conven- 
tion 1s 1n use. 


pop di ; Pop saved regs 

pop si 

mov sp, bp : Remove local data space 

pop bp : Restore old framepointer 

ret 6 ; Exit, and restore 6 byte of args 


The example above shows an exit sequence for a procedure that has previ- 
ously saved SI and DI, allocated local data space, and uses a non-C calling 
convention. The procedure must therefore use ret 6 to restore the six 
bytes of parameters on the stack. 
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6.2 Calls from BASIC 


A BASIC program can call an assembly procedure in another source file 
with the use of the CALL, CALLS, or DECLARE statement. In addi- 
tion to the steps outlined in Section 6.1, “Writing the Assembly Pro- 
cedure,” the following guidelines may be helpful: 


1. Declare procedures called from BASIC as FAR. 
2. Observe the BASIC calling convention. 


a. Upon exit, the procedure must reset SP to the value it had 
- before the parameters were placed on the stack. This is accom- 
plished with the instruction ret size, where szze is the total size 
in bytes of all the parameters. 


b. Parameters are placed on the stack in the same order in which 
they appear in the BASIC source code. The first parameter will 
be highest in memory (because it is also the first parameter to 
be placed on the stack, and the stack grows downward). 


c. By default, BASIC parameters are passed by reference as two- 
byte addresses. 


3. Observe the BASIC naming convention. 


BASIC outputs symbolic names in uppercase characters, which is 
also the default behavior of the assembler. BASIC recognizes up to 
AO characters of a name, whereas the assembler recognizes only the 
first 31, but this should rarely create a problem. 


In the following example program, QuickBASIC 4.0 calls an assembly pro- 
cedure that calculates “A x 28” where A and B are the first and second 
parameters, respectively. The calculation is performed by shifting the bits 
in A to the left, B times. (Note: with earlier versions of BASIC, you need 
to rewrite the example so that it calls a subprogram, not a function.) 


DEFINT A-Z 

PRINT "3 times 2 to the power of 5 is "; 
PRINT Power2 (3,5) 

END 
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To understand how to write the assembly procedure, consider how the 
parameters are placed on the stack: 


Arg 2 address 


Return address 
(4 bytes) 


Saved BP 


Figure 6.3 BASIC Stack Frame 


The return address is four bytes long because procedures called from 
BASIC must be FAR. Arg 1 (parameter 1) is higher in memory than Arg 2 
because BASIC pushes arguments (parameters) in the same order in which 
they appear. Also, each argument is passed as a two-byte offset address, 


the BASIC default. 


The assembly procedure can be written as follows: 


.MODEL MEDIUM 


. CODE 
PUBLIC Power2 


Power2 PROC 


push bp 
MOV bp, sp 
mov bx, [bp+8] 
mov ax, [bx] 
mov bx, [popt6] 
mov cx, [bx] 
shl ax,cl 
pop bp 
ret 4 

Power2 ENDP 
END 
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Entry sequence - saved old BP 
Set stack framepointer 


Load Argl into 
AX 
Load Arg2 into 
CX 
AX = AX * (2 to power of CX) 
Leave return value in AX 


Exit sequence - restore old BP 
Return, and restore 4 bytes 
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Note that each parameter must be loaded in a two-step process because 
the address of each is passed rather than the value. Also, note that the 
stack is restored with the instruction ret 4 since the total size of the 
parameters is four bytes. 


6.3 Calls from C 


AC program can call an assembly procedure in another module, just as it 
would call a C function. In addition to the steps outlined in Section 6.1, 
“Writing the Assembly Procedure,” the following guidelines may prove 
helpful: 


1. Declare procedures called from C as FAR if the C module is com- 
piled in large, huge, or medium model, and NEAR if the C module 
is compiled in small or compact model (although the near and far 
keywords can override these defaults). The correct declaration for 
the procedure is made implicitly when you use the MODEL direc- 
tive available in the Microsoft Macro Assembler, Version 5.0. 


2. Observe the C calling convention. 


a. Return with a simple ret instruction. Do not restore the stack 
with ret szze, since the calling C routine will restore the stack 
itself, as soon as it resumes control. 


b. Parameters are placed on the stack in the reverse order that 
they appear in the C source code. The first parameter will be 
lowest in memory (because it is the last parameter to placed on 
the stack, and the stack grows downward). 


c. By default, C parameters are passed by value, except for 
arrays, which are passed by reference. 


3. Observe the C naming convention. 


Include an underscore in front of any name which will be shared 
publicly with C. C recognizes only the first eight characters of any 
name, so do not make names shared with C longer than eight char- 
acters. Also, if you plan to link with the /NOIGNORECASE 
option, remember that C is case sensitive and does not convert 
names to uppercase. Assemble with the /MX option to prevent 
MASM from converting names to uppercase. 


In the following example program, C calls an assembly procedure that cal- 
culates “A x 28.” where A and B are the first and second parameters, 
respectively. The calculation is performed by shifting the bits in A to the 
left, B times. 
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The C program uses an extern declaration to create an interface with the 
assembly procedure. No special keywords are required because the assem- 
bly procedure will use the C calling convention. 


extern int power2(int, int); 


main () 


4, 
bs 


To understand how to write the assembly procedure, consider how the 
parameters are placed on the stack, as illustrated in Figure 6.4. 


printf("3 times 2 to the power of 5 is %¥d\n", power2(3,5)); 


Saved BP 


Figure 6.4 C Stack Frame 


The return address is two bytes long, assuming that the C module is com- 
piled in small or compact model. If the C module is compiled in large, 
huge, or medium model, then the addresses of Arg 1 and Arg 2 are each 
increased by two, to BP+6 and BP+8, respectively, because the return 
address will be four bytes long. 


Arg 1 (parameter 1) is lower in memory than Arg 2, because C pushes 


arguments in the reverse order that they appear. Each argument is passed 
by value. 
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The assembly procedure can be written as follows: 


-MODEL SMALL 
. CODE 

PUBLIC _power2 
_power2 PROC 


push bp : Entry sequence - save old BP 
mov bp, sp :; Set stack framepointer 
mov ax, [bpt+4] ; Load Argl into AX 


MOv cx, [bpt+6] ; Load Arg2 into CX 


shl ax,cl ; AX = AX * (2 to power of CX) 
; Leave return value in AX 
pop bp ; Exit sequence - restore old BP 
ret : Return 
_power2 ENDP 
END 


The example above assumes that the C module is compiled in small model. 
The parameter offsets and the MODEL directive will change for different 
models. 


Note that ret without a size variable is used, since the caller will adjust 
the stack upon return from the call. | 


6.4 Calls from FORTRAN 


A FORTRAN program can call an external assembly procedure with the 
use of the INTERFACE statement. However, the INTERFACE state- 
ment is not strictly necessary unless you intend to change one of the FOR- 
TRAN defaults. In addition to the steps outlined in Section 6.1, “Writing 
the Assembly Procedure,” the following guidelines may be helpful: 


1. Declare procedures called from FORTRAN as FAR. 


2. Observe the FORTRAN calling convention. 


a. Upon exit, the procedure must reset SP to the value it had 
before the arguments were placed on the stack. This is accom- 
plished with the instruction ret size, where size is the total size 
of all the parameters. 
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b. Arguments are placed on the stack in the same order in which 
they appear in the FORTRAN source code. The first parameter 
will be highest in memory (because it is also the first parameter 
to be placed on the stack, and the stack grows downward). 


c. By default, FORTRAN parameters are passed by reference as 
far addresses if the FORTRAN module is compiled in large or 
huge memory model, and as near addresses if the FORTRAN 
module is compiled in medium model. Versions of FORTRAN 
prior to Version 4.0 are always large model. 


3. Observe the FORTRAN naming convention. 


FORTRAN only recognizes the first 6 characters of any name, 
while the assembler recognizes the first 31. Names shared publicly 
with FORTRAN should not be longer than 6 characters, unless the 
FORTRAN module is using the ALIAS feature. 


In the following example, FORTRAN calls an assembly procedure that cal- 
culates “A x 28,” where A and B are the first and second parameters, 
respectively. This is done by shifting the bits in A to the left, B times. 


The FORTRAN module uses the INTERFACE statement, which is 
described in Section 4.1, “The FORTRAN Interface to Other Languages.” 


INTERFACE TO INTEGER*2 POWER2 (A,B) 
INTEGER*2 A,B 


END 
Cc 
INTEGER+2 A,B 
B= 5 
WRITE (*,*) '3 times 2 to the power of 5 is ',POWER2 (A,B) 
END 


To understand how to write the assembly procedure, consider how the 
parameters are placed on the stack, as illustrated in Figure 6.5. 


Figure 6.5 assumes large-model FORTRAN. If you compile the FORTRAN 
module in medium model, then each argument will be passed as a two- 
byte, not four-byte address. The return address is four bytes long because 


procedures called from FORTRAN must always be FAR. 


Arg 1 (parameter 1) is higher in memory than Arg 2 because FORTRAN 
pushes arguments (parameters) in the same order that they appear. 
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Arg 1 segment 
Arg 1 offset 


Arg 2 segment 


Arg 2 offset 


Return address 
(4 bytes) 


Figure 6.5 FORTRAN Stack Frame 


The assembly procedure can be written as follows: 


»MODEL LARGE 
. CODE 
PUBLIC Power2 


PowerZ PROC 


push bp ; Entry sequence - save old BP. 

mov bp, sp ; Set stack framepointer 

les bx, [bpt+10] :; Load Argl into 

mov ax,es: [bx] : AX 

les bx, [bp+6] ; Load Arg2 into 

mov cx,es: [bx] ; CX 

shl ax,cl : AX = AX * (2 to power of CX) 

: Leave return value in AX 

pop bp ; Exit sequence - restore old BP 

ret 8 ; Return and restore 8 bytes 
Power2 ENDP 

END 
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In the example above, each argument must be loaded using the four-byte 
address that was pushed onto the stack. The procedure loads four-byte 
addresses with the LES instruction, which loads the destination operand 
(in this case, BX) with the source operand, and also loads ES with the 
object two bytes higher in memory. Thus, the instruction 


les bx, [bp+10] 


loads BX with the value at BP+10 (an offset address), and ES. with the 
value at BP+12 (a segment address), which is necessary to set up the next 
instruction. 


Upon exit, the stack is restored with the instruction ret 8, since the total 
size of parameters pushed onto the stack is eight. 


6.5 Calls from Pascal 


A Pascal program can call an assembly procedure in another module just 

as it would call a Pascal routine. In addition to the steps outlined in Sec- 

tion 6.1, “Writing the Assembly Procedure,” the following guidelines may 
be helpful: 


1. Declare procedures called from Pascal'as FAR. This is taken care 
of for you automatically if you use the MODEL directive available 
BEA the Microsoft Macro Assembler, Version 5.0 or later; specify 

GE. 


2. Observe the Pascal calling convention. 


a. Upon exit, the procedure must reset SP to the value it had 
before the parameters were placed on the stack. The procedure 
resets SP with the instruction ret size, where size is the total 
size of all the parameters pushed on the stack. 


b. Parameters are placed on the stack in the same order in which 
they appear in the Pascal source code. The first parameter will 
be highest in memory (because it is also the first parameter to 
be placed on the stack, and the stack grows downward.) 


c. By default, Pascal parameters are passed by value. 


3. Observe the Pascal naming convention. 
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Pascal only recognizes the first 8 characters of any name, while the 
assembler recognizes the first 31. Names shared publicly with Pas- 
cal should not be longer than 8 characters. 


In the following example program, Pascal calls an assembly procedure that 
calculates “A x 2B,” where A and B are the first and second parameters, 
respectively. The calculation is performed by shifting the bits in A to the 
left, B times. 


The Pascal module uses an extern declaration in its interface with the 
assembly procedure. No special keywords are required, because the assem- 
bly procedure will use the Pascal calling convention. 


program Asmtest (input, output); 

function Power2(a,b:integer) :integer; extern; 

begin 

writeln('3 times 2 to the power of 5 is ',Power2(3,5)); 
end. 


To understand how to write the assembly procedure, consider how the 
parameters are placed on the stack, as illustrated in Figure 6.6. 


ss PERSs RY ERE CERES RSE ERE 


Saved BP 


Figure 6.6 Pascal Stack Frame 


Arg 1 (parameter 1) is higher in memory than Arg 2 because Pascal pushes 
arguments in the same order that they appear. Each argument is passed 
by value. | 
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The assembly procedure can be written as follows: 


»~MODEL LARGE 
. CODE 

PUBLIC Power2 
Power2 PROC 


push bp ; Entry sequence - save old BP 

mov bp, sp : Set stack framepointer 

mov ax, [opt8] ; Load Argl into AX 

MOv cx, [ppt6] : Load Arg2 into CX 

shl ax,cl > AX = AX * (2 to power of CX) 

> Leave return value in AX 

pop bp > Exit sequence - restore old BP 

ret 4, ; Return and restore 4 bytes 
Power2 ENDP 

END 


The AX and CX registers can be loaded directly because the parameters — 
were passed by value. Note that the ret 4 instruction is necessary to 
clear the stack of the four bytes of parameters. 


6.6 Calling High-Level Languages 
from Assembly 


High-level language routines assume that certain initialization code has 
previously been executed; you can ensure that the proper initialization is 
performed by starting in a high-level language module, and then calling an 
assembly procedure. The assembly procedure can then call high-level 
language routines as needed, as shown in Figure 6.7. 


To execute an assembly call to a high-level language, you need to observe 
the following guidelines: 


1. Push each parameter onto the stack, observing the calling conven- 
tion of the high-level language. Constants such as offset addresses 
must first be loaded into a register before being pushed. 


2. With long parameters, always push the segment or high-order por- 
tion of the parameter first, regardless of the calling convention. 


3. Execute a call. The call must be far unless the high-level language 
routine is small model. 
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4, If the routine used the C calling convention, then immediately 
after the call you must clear the stack of parameters with the 
instruction 


add sp, size 


where size is the total size in bytes of all parameters that were 
pushed. 


(C start-up) 


main({){ 
asub(}; 


PROC asub 


(C termination) 


call ctest 


rect 
ENDP asub 


Figure 6.7 Assembly Call to C 


6.7 The Microsoft Segment Model 


If you use the simplified segment directives by themselves, you do not need 
to know the names assigned for each segment. However, versions of the 
Macro Assembler prior to 5.0 do not support these directives. With older 
versions of the assembler, you should use the SEGMENT, GROUP, 
ASSUME, and ENDS directives equivalent to the simplified segment 


directives. 
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Table 6.1 shows the default segment names created by each directive. Use 
of these segments ensures compatibility with Microsoft languages and will 
help you to access public symbols. This table is followed by a list of three 
steps, Ulustrating how to make the actual declarations, and an example 


program. 


Table 6.1 


Default Segments and Types 
for Standard Memory Models 


Model 


Small 


Medium 


Compact 


Large 
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Directive 


CODE 
DATA 
CONST 
DATA? 
6 TACK 


CODE 
DATA 
CONST 
DATA? 
6 TACK 


CODE 


FARDATA 
FARDATA? 


DATA 
-CONST 
DATA? 
» LACK 


CODE 


FARDATA 
FARDATA? 


DATA 
-CONST 
DATA? 
6 TACK 


Name 


_~TEXT 
—DATA 
CONST 
~BSS 
STACK 


name TEXT 


DATA 
CONST 
_BSS 

STACK 


~LEXT 


FAR_DATA 


FAR_BSS 
~DATA 
CONST 
_BSS 
STACK 


name TEXT 
FAR_DATA 


FAR_BSS 
_DATA 
CONST 
_BSS _ 
STACK 


Align 


WORD 
WORD 
WORD 
WORD 
PARA 


WORD 
WORD 
WORD 
WORD 
PARA 


WORD 
PARA 
PARA 
WORD 
WORD 
WORD 
PARA 


WORD 
PARA 
PARA 
WORD 
WORD 
WORD 
PARA 


Combine 


PUBLIC 
PUBLIC 
PUBLIC 
PUBLIC 
STACK 


PUBLIC 
PUBLIC 
PUBLIC 
PUBLIC 
STACK 


PUBLIC 
private 

private 

PUBLIC 
PUBLIC 
PUBLIC 
STACK 


PUBLIC 
private 

private 

PUBLIC 
PUBLIC 
PUBLIC 
STACK 


Class 


*>CODE’ 
*?DATA’ 
*CONST’ 
*BSS’ 
STACK’ 


CODE’ 
DATA’ 
‘CONST’ 
»BSS? 
‘STACK’ 


*>CODE’ 


*"FAR_BSS’ 
"DATA’ 
*>CONST’ 
"BSS’ 
STACK?’ 


*>CODE’ 


"FAR_DATA’ 


"FAR_BSS’ 
‘DATA’ 
>CONST?’ 
*BSS’ 
STACK’ 


Group 


DGROUP 
DGROUP 
DGROUP 
DGROUP 


DGROUP 
DGROUP 
DGROUP 
DGROUP 


~?FAR_DATA’ | 


DGROUP 
DGROUP 
DGROUP 
DGROUP 


DGROUP 
DGROUP 
DGROUP 
DGROUP 
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The directives in Table 6.1 refer to the following kinds of segments: 


Directive Description of Segment 

CODE The segment containing all the code for the 
module. 

DATA Initialized data. 

DATA? Uninitialized data. Microsoft compilers store 


uninitialized data separately because it can be 
more efficiently stored than initialized data. 


FARDATA and Data placed here will not be combined with 
FARDATA? the corresponding segments in other modules. 


The segment of data placed here can always 
be determined, however, with the assembler 
SEG operator. 


CONST Constant data. Microsoft compilers use this 


segment for such items as string and floating- 
point constants. 


STACK Stack. Normally, this segment is declared in 


the main module for you and should not be 
redeclared. 


The following steps describe how to use Table 6.1 to create directives: 


1. 


Determine what memory model you are using. Then refer to Table 
6.1 to look up the segment name, align type, combine type, and 
class for your code and data segments. Use all of these attributes 
when you define a segment. For example, the code segment for 
small model is declared as follows: 


_TEXT SEGMENT WORD PUBLIC ‘CODE’ 


The name _TEXT and all the attributes are taken from Table 6.1. 
If the combine type is private, simply do not use any combine type. 


If you have segments in DGROUP, put them into D@ROUP 
with the GROUP directive, as in: 


GROUP DGROUP _DATA _BSS 


Use ASSUME and ENDS as you would normally. Upon entry, DS 
and SS will both point to D@ROUP; therefore, a small-model 
procedure that makes use of D@GROUP should include the follow- 
ing ASSUME directive: 


ASSUME CS:TEXT, DS:DGROUP, SS:DGROUP 


A large-model procedure will assume a different code segment, and 
may assume a far data segment for ES. 
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The following example shows the C-assembly program from Section 6.3, 
without the simplified segment directives from Version 5.0 of the Microsoft 
Macro Assembler: 


_TEXT 


_Power 2 


_Power 2 
_TEXT 
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SEGMENT WORD PUBLIC 'CODE' 


ASSUME 
PUBLIC 


PROC 
push 
mov 


mov 
mov 
shl 


pop 
ret 
ENDP 
ENDS 
END 


es:_TEXT 
_Powerz2 


bp 
bp, sp 


ax, [bpt4] 


cx, [bpt+6] 
ax,cl 


bp 


we “se Ge “ae 


Entry sequence - save BP 
Set stack frame 


Load Argl into AX 

Load Arg2 into CX 

AX = AX * (2 to power of CX) 
Leave return value in AX 


Exit sequence - restore BP 
Return 


5 


a 


Hea 


Cuapter’ / 
PASSING 


BY REFERENCE OR VALUE 


Til  TSASIG APCUMENUS cocci sicierewastinastarisbiecbowsaadserecetes 
7.2 C Arguments...........0. So eeaRee suo ani edeiaohiwietsenee wieate 
ed PORTRAN APeuments vesssidioiescsveieiesesseszcdsxecaves: 
TA Pascal Arguments ..........scccccssssscsccesessvscrssvessesnenss 


Passing by Reference or Value 


Chapter 2 introduced the general concepts of passing by reference and 
passing by value. Chapter 2 also listed the default method used by each 
language. For example, BASIC passes by reference, and Pascal passes by 
value. 


This chapter describes features in each language that override the default. 
For example, using the BYVAL keyword in a DECLARE statement will 
cause BASIC to pass a given parameter by value rather than by reference. 


This chapter is divided into four sections, each of which summarizes 
parameter-passing methods in a particular language, discussing how to 
pass arguments by value, by near reference, and by far reference. To write 
a successful mixed-language interface, you must consider how each param- 
eter is passed by the calling routine and how each is received by the called 
routine. 


7.1 BASIC Arguments 


The default for BASIC is to pass all arguments by near reference. 


Note 


Every BASIC subprogram or function always receives parameters by 
near reference. The rest of this section describes how BASIC passes 
parameters only. 


m Passing BASIC Arguments by Value 

An argument is passed by value when the called routine is first declared 
with a DECLARE statement, and the BYVAL keyword is applied to the 
argument. The use of CALLS overrides this default and passes by far 
reference instead, as mentioned below. 


m Passing BASIC Arguments by Near Reference 


The BASIC default is to pass by near reference. Use of SEG, BYVAL, or 
CALLS changes this default. 
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m= Passing BASIC Arguments by Far Reference 
BASIC will pass each argument in a call by far reference when CALLS is 


used to invoke a routine. Using SEG to modify a parameter in a preceding 
DECLARE statement will also cause BASIC to pass that parameter by 


far reference. 
m Examples 


DECLARE SUB Test (BYVAL a%, b%, SEG c%) 


CALL Test (x%, y%, 2%) 

The example above passes the first argument ( a%) by value, the second 
argument ( b%) by near reference, and the third argument ( c%) by far 
reference. 


CALLS Test2 (x%, y%, z%) 


The example above passes each argument by far reference. 


7.2 C Arguments 


The default for C is to pass all arrays by reference (near or far, depending 
on the memory model) and all other data types by value. C uses far data 
pointers for compact, large, and huge model, and near data pointers for 
small and medium model. 


= Passing C Arguments by Value 


The C default is to pass all nonarrays (which includes all data types other 
than those explicitly declared as arrays) by value. 


Arrays can be passed by value by being declared as the only member of a 
structure. The following example passes all 100 bytes of x directly to the 
function test (). 


struct x_struct {int x[100]} xs; 


test (xs); 


102 


Passing by Reference or Value 


The function test, in turn, receives the array by declaring a parameter of 
type x_struct. A C routine would interpret this data object as a struc- 
ture, so that structure syntax would be used to manipulate an array ele- 
ment, as in the following example: 


test (x_arrs) 
struct x_struct x_arrs? 


a! 


x_arrs.xf[O}] = 1: /* set first element to 1 x«/ 


Routines written in other languages, however, would not require structure 
or record syntax. FORTRAN, for example, would access the first element 
simply as X (1). 


m Passing C Arguments by Reference (Near or Far) 
In C, passing a pointer to an object is equivalent to passing the object 


itself by reference. After control is passed to the called function, each 
reference to the parameter itself is prefixed by *. 


Note 
To pass a pointer to a object, prefix the parameter in the call state- 
ment with &. To receive a pointer to an object, prefix the parameter’s 
declaration with *. In the latter case, this may mean adding a second 
* to a parameter which already has a +. For example, to receive a 
pointer by value, declare it as 
int xptr; 
but to receive the same pointer by reference, declare it as 


int *exptr:; 


The default for arrays is to pass by reference. 


m Effect of Memory Models on Size of Reference 
Near reference is the default for passing pointers in small and medium 


model C. Far reference is the default in the compact, large, and huge 
models. 
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Near pointers can be specified with the near keyword, which overrides the 
default pointer size. However, if you are going to override the default 
pointer size of a parameter, then you must explicitly declare the parameter 
type in function declarations as well as function definitions. 


Far pointers can be specified with the far keyword, which overrides the 
default pointer size. 


7.3 FORTRAN Arguments 


The FORTRAN default is to pass and receive all arguments by reference. 
The size of the address passed depends on the memory model. 


m@ Passing FORTRAN Arguments by Value 


A parameter is passed by value when declared with the VALUE attribute. 
This declaration can occur either in a FORTRAN INTERFACE state- 


ment (which determines how to pass a parameter) or in a function or sub- 
routine declaration (which determines how to receive a parameter). 


A function or subroutine declared with the PASCAL or C attribute will 
pass by value all parameters declared in its parameter list (except for 
parameters declared with the REFERENCE attribute). This change in 
default passing method applies to function and subroutine definitions, as 
well as to an INTERFACE statement. 


m Passing FORTRAN Arguments by Reference (Near or Far) 
Passing by reference is the default for FORTRAN. However, if either the 
C or PASCAL attribute is applied to a function or subroutine declara- 
tion, then you need to apply the REFERENCE attribute to any parame- 
ter of the routine that you want passed by reference. 


m Use of Memory Models and FORTRAN Reference Parameters 


Near reference is the default for medium-model FORTRAN programs; far 
reference is the default for large-model and huge-model programs. 
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Note 


Versions of FORTRAN prior to 4.0 always compile in large memory 
model. 


You can apply the NEAR attribute to reference parameters in order to 
specify near reference. You can apply the FAR attribute to reference 
parameters in order to specify far reference. These keywords enable you to 
override the default. They have no effect when they specify the same 
method as the default. 


You may need to apply more than one attribute to a given parameter. In 
that case, enclose both attributes in brackets, separated by a comma: 


REAL*4 X [NEAR, REFERENCE] 


7.4 Pascal Arguments 
The Pascal default is to pass all arguments by value. 


m Passing Pascal Arguments by Near Reference 


Parameters are passed by near reference when declared as VAR or 
CONST. | 


Parameters are also passed by near reference when the ADR of a variable, 
or a pointer to a variable, is passed by value. In other words, the address 


of the variable is first determined. Then, this address is passed by value. 
(This is essentially the same method employed in C.) | 


Mm Passing Pascal Arguments by Far Reference 


Parameters are passed by far reference when declared as VARS or 
CONSTS. 


Parameters are also passed by far reference when the ADRS of a variable 
is passed by value. 
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Numerical, Logical, and String Data 


This chapter considers the details of passing and receiving kinds of data. 
Discussion focuses on the differences in string format and on the methods 
of passing strings between each combination of languages. 


8.1 Integer and Real Numbers 


Integers and reals are usually the simplest kinds of data to pass between 
languages. However, the type of numerical data is named differently in 
each language; furthermore, not all data types are available in every 
language, and another type may have to be substituted in some cases. 


Table 8.1 shows equivalent data types in each language. 


Warning 


As noted in Table 8.1, C sometimes performs automatic data conver- 
sions which the other languages do not perform. You can prevent C 
from performing such conversions by declaring a variable as the only 
member of a structure and then passing this structure. For example, 
you can pass a variable z of type float, by first declaring the structure: 


struct { 
float x: 
} x_struct; 


If you pass a variable of type char or float by value and do not take 
this precaution, then the C conversion may cause the program to fail. 


8.2 FORTRAN COMPLEX Types 


The FORTRAN types COMPLEX*8 and COMPLEX*16 are not 
directly implemented in any other language. However, you can write struc- 
tures in ©, records in Pascal, and user-defined types in BASIC that are 
precisely equivalent. 


The type COMPLEX*+8 has two fields: the first is a four-byte floating- 
point number that contains the real component, and the second its a four- 
byte floating point number that contains the imaginary component. 
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Table 8.1 
Equivalent Numeric Data Types 
BASIC C FORTRAN Pascal 
t% short INTEGER#«2 INTEGER2 
INTEGER int INTEGER 
(default) 
unsigned short” abs WORD 
unsigned 
t&, long INTEGER«4 INTEGER4 
LONG INTEGER 
(default) 


unsigned long. 


a! float! REAL*4 REAL4 
r REAL REAL 
(default) (default) 
SINGLE 
at double REAL#*8 REAL8& 
DOUBLE DOUBLE 
PRECISION 
unsigned char’ CHARACTER+#13 
BOOLEAN 


* Not available in BASIC, FORTRAN, or Pascal. A signed integer may be 
substituted, but take care not to exceed range. 


lize automatically converts float to double in assignment or when passed by value. 


ze automatically converts char and unsigned char to int in assignment or when passed 
by value. 


8 The FORTRAN type CHARACTER *1 is not the same as LOGICAL. The data type 
LOGICAL 1s covered in Section 8.3. 
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The type COMPLEX*«16 is similar to COMPLEX*8, with the only 
difference being that each field contains an eight-byte floating-point 
number. | 


The type COMPLEX is equivalent to the type COMPLEX#8. 


Figure 8.1 FORTRAN COMPLEX Data Format 


8.3 FORTRAN LOGICAL Type 


The FORTRAN LOGICAL type is not equivalent to either the Pascal 
BOOLEAN or C char type. Instead, a FORTRAN LOGICAL «2 is 
stored as a one-byte indicator value (1=true, 0=false) followed by an 
unused byte. A FORTRAN LOGICAL #4 is stored as a one-byte indicator 
value followed by three unused bytes. The type LOGICAL is equivalent 
to LOGICAL #4, unless $STORAGE:2 is in effect. 


To pass or receive a FORTRAN LOGICAL type, declare a C structure, 
Pascal record, or BASIC user-defined type, with the appropriate fields. 


8.4 Strings 


Strings are stored in a variety of formats. Therefore, some transformation 
is frequently required to pass strings between languages. 


This section presents the string format(s) used in each language, and then 
describes methods for passing strings within specific combinations of 
languages. 


8.4.1 String Formats 


The following section describes how a string is stored by each language, as 
well as how a string is passed as an argument. 
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= BASIC String Format 


Strings are stored in BASIC as four-byte string descriptors: 


Figure 8.2 BASIC String Descriptor Format 


The first field of the string descriptor contains a two-byte integer indicat- 
ing the length of the actual string text. The second field contains the 
address of this text. This address is an offset into the default data area 
and is assigned by BASIC’s string-space management routines. These 
management routines need to be available to reassign this address when- 
ever the length of the string changes, yet these management routines are 
only available to BASIC. Therefore, other languages should not alter the 
length of a BASIC string. 


# CString Format 
C stores strings as simple arrays of bytes and uses a null character (numer- 
ical 0, ASCII NUL) as delimiter. For example, consider the string declared 


as follows: 


char str[] = "String of text" 


The string is stored in 15 bytes of memory as: 


Figure 8.3 C String Format 
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Since str is an array like any other, it is passed by reference, just as 
other C arrays are. To pass by value, declare the array as a member of a 
structure. (See Section 7.2, “C Arguments,” for more information.) 


& FORTRAN String Format 

FORTRAN stores strings as a series of bytes at a fixed location in mem- 
ory. There is no delimiter at the end of the string as in C. Consider the 
string declared as follows: 


STR = ‘String of text' 


The string is stored in 14 bytes of memory as: 


Figure 8.4 FORTRAN String Format 


Strings are passed by reference, just as other FORTRAN data are. Al- 
though Version 4.0 of the FORTRAN Optimizing Compiler has a method 
for passing length, the variable length FORTRAN strings cannot be used 
in a mixed-language interface because other languages cannot access the 
temporary variable that FORTRAN uses to communicate string length. 


Pascal String Format 


Pascal has two types of strings, each of which uses a different format: a 
fixed-length type STRING and the variable-length type LSTRING. 


The format used for STRING is identical to the FORTRAN string for- 
mat, described above. 3 


The format of an LSTRING stores the length in the first byte. For exam- 
ple, consider an LSTRING declared as: 


VAR STR: LSTRING (14) ; 
STR := ‘String of text' 


113 


Microsoft Mixed-Language Programming Guide 


The string is stored in 15 bytes of memory. The first byte indicates the 
length of the string text. The remaining bytes contain the string text 
itself: 


EI ES EE 


Figure 8.5 Pascal String Format 


8.4.2 Passing BASIC Strings 


When a BASIC string (such as A$) appears in an argument list, BASIC 
passes a string descriptor rather than the string data itself. The BASIC 
string descriptor is not compatible with the string formats of the other 


languages. 


Warning 


When you pass a string from BASIC to another language, the called 
routine should under no circumstances alter the length of the string. 
Other languages lack BASIC’s string-space management routines. 
Therefore, altering the length of a BASIC string is liable to corrupt 
parts of the BASIC string space. Changes that do not affect length, 
however, are relatively safe. 


The routine that receives the string must not call any BASIC routine. 
If it does, BASIC’s string-space management routines may change the 
location of the string data without warning. 


However, the SADD and LEN functions extract parts of the string 
descriptor. SADD extracts the address of the actual string data, and 
LEN extracts the length. The results of these functions can then be 
passed to other languages. 


BASIC should pass the result of the SADD function by value. Bear in 


mind that the string’s address, not the string itself, will be passed by 
value. This amounts to passing the string itself by reference. The BASIC 
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module passes the string address, and the other module receives the string 
address. The address returned by SADD is declared as type integer, but is 
actually equivalent to a C near pointer or Pascal ADR variable. 


Pass LEN (A$) as you would normally pass a two-byte integer. 


m@ Passing BASIC Strings to C 


Before attempting to pass a BASIC string to C, you may want to first 
append a null byte on the end, with an instruction such as: 


A$’ = AS + CHRS(0) 


The string now conforms to the C string format. Note that when used in a 
BASIC string expression the + indicates concatenation, or joining, of two 
strings. 


There are two methods for passing a string from BASIC to C. The first 
method is to pass the string address and string length as separate argu- 
ments, using the SADD and LEN functions. If you are linking to a C 
library routine, this is the only workable method. 


DECLARE SUB Test CDECL (BYVAL S%, BYVAL N%) 
CALL Test (SADD (A$), LEN (A$) ) 


void Test(s, n) 
char near *s°? 
int nn} 


{ 


In the example above, SADD (A$) returns the near address of the string 
data. This address must be passed by value, since it is equivalent to a 
pointer (even though treated by BASIC as an integer). Passing by refer- 
ence would attempt to pass the address of the address, rather than the 
address itself. 


C must receive a near pointer since only the near (offset) address is being 
passed by BASIC. Near pointers are the default pointer size in medium- 
model C. | 


The second method is to pass the string descriptor itself, with a call state- 
ment such as: 


CALL Test2 (As) 
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In this case, the C function must declare a structure for the parameter, 
which has the appropriate fields (length and address) for a BASIC string 
descriptor. The C function should then expect to receive a pointer to a 
structure of this type. 


@ Passing BASIC Strings to FORTRAN 


FORTRAN variable-length strings (available in Version 4.0) cannot be 
used in a mixed-language interface. 


Use the SADD function to pass the address of a BASIC string. The FOR- 
TRAN routine should declare a character variable of the same length 
(which is fixed). 


DECLARE SUB Test (BYVAL S%) 
As="abcd" 
CALL (SADD (A$) ) 


FORTRAN SOURCE 


QQ. » 


SUBROUTINE TEST (STRINGA) 
CHARACTER+4 STRINGA [NEAR] 


In the example above, SADD (A$) should be passed by value, since it is 
actually an address and not an integer. (Passing a string by reference is 
equivalent to passing the string address by a Na that CHARAC- 
TER«4 STRINGA [NEAR] declares a fixed-length parameter received by 
near reference. 


FORTRAN must receive by near reference. The NEAR attribute makes 
this adjustment, since the FORTRAN default is to receive by far reference. 


& Passing BASIC Strings to Pascal 


The same technique used to pass a string to FORTRAN can be used to 
pass a string to Pascal. However, the Pascal routine should declare the 
string as a VAR parameter, in order to receive the string by near refer- 
ence. The Pascal code must declare the fixed-length type string(4) ina 
separate statement, then use the declared type in a procedure declara- 
tion. 
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DECLARE SUB Test (BYVAL S%) 
AS="abca" 
CALL Test (SADD (A$) ) 


type stype4=string (4); 
procedure Test (VAR StringA:stype4) ; 


8.4.3 Passing C Strings 


When a C string appears in an argument list, C passes the address of the 
string. (A C string is just an array and so is passed by reference.) C can 
easily pass data to a fixed-length FORTRAN or Pascal string, or to BASIC 
in the form of a string descriptor. 


m= Passing C Strings to BASIC 
To pass a C string to BASIC, first allocate a string in C. Then create a 
structure identical to a BASIC string descriptor. Pass this structure by 


near reference, as in the example below: 


char cstr[] = "ABC"; 


struct { 
char *sd_addr: 
int sd_len:> 

} str_des:; 


str_des.sd_addr = cstr:; 
str_des.sd_len = strlen(cstr); 
- bsub (&str_des) ; 


Make sure that the string originates in C, not in BASIC. Otherwise, 
BASIC may attempt to move the string around in memory. 


m@ Passing C Strings to FORTRAN and Pascal 


To pass strings to FORTRAN and Pascal, it is only necessary to make 
sure that the called routine receives the string by reference and allocates 
sufficient space. FORTRAN and Pascal should expect to receive fixed- 
length strings; to declare a fixed-length string parameter in Pascal you 
must first declare a type, as shown below. 
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gm Example 


/* C code - calls Pascal and FORTRAN «/ 
/* large memory model assumed */ 


char a[]="abcd"; 


Testi (a) ; /* call to FORTRAN +/ 
Test2 (a); /* call to Pascal +/ 


{* Pascal *} 

module Ptestl1; 

type stype4 : string(4); 

procedure Testl(vars StringA : stype4) 


C FORTRAN 


SUBROUTINE TEST2 (A) 
CHARACTER*4 A 


However, C cannot pass variable-length strings to FORTRAN; the FOR- 
TRAN string data are not placed on the stack, but require special low- 
level variables found only in a FORTRAN program. 


8.4.4 Passing FORTRAN Strings 
Variable-length FORTRAN strings of type CHARACTER+#(*) (available 


in Versions 4.0 and later) cannot be effectively passed to other languages. 
However, fixed-length strings can be passed without much difficulty; the 
principal limitation is that the FORTRAN INTERFACE must declare 
the length of the string in advance. 


By default, FORTRAN passes strings by reference. However, if you apply 
the C or PASCAL attribute to a routine, then the default changes to 
passing by value. The actual string data do not include a delimiter, unless 
you use the C-string feature described below. | 


mH Passing FORTRAN Strings to BASIC 


FORTRAN cannot directly pass strings to BASIC because BASIC expects 
to receive a string descriptor when passed a string. Yet there is an indirect 
method for passing FORTRAN strings to BASIC. First, allocate a fixed- 
length string in FORTRAN, declare an array of two-byte integers, and 
treat the array as a string descriptor. Next, assign the address of the 
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string to the first element (using the LOC function), and assign the length 
of the string to the second element. Finally, pass the integer array itself by 
reference. BASIC can receive and process this array Just as it would a 
string descriptor. 


= Passing FORTRAN Strings to C 


The C-string feature overrides the normal FORTRAN format and pro- 
duces strings that can be effectively manipulated by C. When the C-string 
feature is used, a null byte is appended to the end of the string, and 
backslashes that appear in a literal-string text are treated as escapes. 


You convert FORTRAN strings to C strings by simply typing C immedi- 
ately after a string constant. Do not insert commas or any other interven- 
ing punctuation, only spaces. Note that the length of the string is in- 
creased by one because of the null byte that is appended. You ee to 
allow for this when you declare string variables. 


The following example passes the address of a string to C. The string is in 
the C format. 


@ Example 


INTERFACE TO SUBROUTINE CONV [C] (S81) 
CHARACTER*5 S1 [REFERENCE] 
END 


CHARACTERs*5 S1 
Sl = 'abcd' C 
CALL CONV (S1) 


In the example above, note that an additional byte is allocated for S1, in 
consideration of the null byte added by the C-string conversion (done on 
the line above the call). Also note that the REFERENCE keyword was 
necessary because the C attribute in the first line changes the parameter- 
passing default to calling by value. 


m Passing FORTRAN Strings to Pascal 


The FORTRAN and Pascal fixed-length string types are equivalent and 
therefore can be easily passed between FORTRAN and Pascal. 


FORTRAN modules should only pass fixed-length strings to Pascal. The 
Pascal routines, in turn, should expect to receive fixed-length strings. To 
specify a fixed-length string parameter in Pascal, you first need to declare 
a type, as in the example below. 
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mw Example 


Cc FORTRAN SOURCE CODE 
C 
INTERFACE TO SUBROUTINE PS (S1) 
CHARACTERs4 S1 
END 
C 
Sl = 'wxyz' 
CALL PS (81) 
END 


{ Pascal module} 


module Psmod; 
type stype4 = string(4); 
procedure ps (vars strl : stype4); 


8.4.5 Passing Pascal Strings 


The Pascal data type LSTRING is not compatible with the formats used 
by the other languages. You can pass an LSTRING indirectly, however, 
by first assigning it toa STRING variable. Pascal supports such assign- 
ments by performing a conversion of the data. 


Important 


Pascal passes an additional, two-byte parameter that indicates string 
length whenever you pass a parameter of type STRING or of type 
LSTRING. To suppress the passing of this additional parameter, you 
first declare a fixed-length type, as shown in the example in the sec- 
tion, “Passing Pascal Strings to ©,” below. 


m Passing Pascal Strings to BASIC 


To pass a Pascal string to BASIC, first allocate a string in Pascal. Next, 
create a record identical to a BASIC string descriptor. Initialize this record 
with the string address and length, and then pass the record by near refer- 
ence. Make sure that the string originates in Pascal, not in BASIC; other- 
wise, BASIC may attempt to move the string data around in memory. 


m Passing Pascal Strings to C 


To pass a string to C, first append a null character (numerical 0, ASCII 
NUL) to the end of the string by using the concatenation operator (*). 


120 


Numerical, Logical, and String Data 


Then pass the string to C by reference (by declaring the string argument 
as CONST, CONSTS, VAR, or VARS). Remember to first declare the 
fixed-length string type. 


@ Example 


program Passtr (input, output); 
type 
stype6 = string(6); 
var 
str : stype6; 
procedure Passtoc (var sl : stype6) [C]; extern; 
begin 
str := ‘abcde’ * chr (0); 
Passtoc (str); 


You can achieve more flexibility in passing Pascal strings by declaring a 
value parameter of type ADRMEM or ADSMEM and then passing the 


address of the argument. For instance, the example above could be imple- 
mented by first declaring the parameter with the statement, 


procedure Passtoc (sladr : ADRMEM) [C]; extern; 
Then you could make the call with 

Passtoc (ADR str); 
With this method, you can pass strings of different lengths to the pro- 
cedure Passtoc. 
@ Passing Pascal Strings to FORTRAN 
The Pascal STRING and the FORTRAN CHARACTER «én types are 
equivalent. Therefore Pascal fixed-length string variables can be freely 
passed to FORTRAN. Usually, you will find it most efficient to pass 


strings by reference (by declaring the string argument as VAR or VARS). 
Remember to first declare the fixed-length type before using it. 


program Passtr (input, output) 


type 
stype6 = string(6); 
var 
str : stype6; 
procedure PasstoF (var sl : stype6); extern; 
begin 


PasstoF (str); 


As explained previously, you can use ADRMEM and ADSMEM to 
achieve more flexibility in passing strings from Pascal. 
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Special Data Types 


This chapter considers special types of data that are either structured (i.e., 
contain more than one field) or are accessed externally. 


9.1 Arrays 


When you program in only one language, arrays do not present special 
problems; the language is consistent in its handling of arrays. When you 
program with more than one language, however, you need to be aware of 
two special problems that may arise with arrays: 


1. Arrays are implemented differently in BASIC, so that you must 
take special precautions when you pass an array from BASIC to 
another language (including assembly). 


2. Arrays are declared and indexed differently in each language. 


This section considers each of these problems in turn. 


Note 


As explained in Chapter 7, arrays cannot be passed by value in C, un- 
less declared within a structure. However, it is usually most efficient to 
pass arrays by reference. 


9.1.1 Passing Arrays from BASIC 


Most Microsoft languages permit you to reference arrays directly. In C, for 
example, an address name is equivalent to the address of the first element. 
FORTRAN and Pascal are similar. This simple implementation is possible 
because the location of data for an array never changes. 


BASIC uses an array descriptor, however, which is similar in some respects 
to a BASIC string descriptor. The array descriptor is necessary because 
BASIC may shift the location of array data in memory; BASIC handles 
memory allocation for arrays dynamically. 


C, FORTRAN, and Pascal do not have any equivalent of the BASIC array 
descriptor. More importantly, they lack access to BASIC’s space manage- 
ment routines for arrays. Therefore, you may safely pass arrays from 
BASIC only if you follow three rules: 


1. Pass the array’s address by applying the VARPTR function to 


the first element of the array and passing the result by value. To 
pass the far address of the array, apply both the VARPTR and 
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VARSEG functions and pass each result by value. The receiving 
language gets the address of the first element and considers it to be 
the address of the entire array. It can then access the array with its 
normal array-indexing syntax. The example below illustrates how 
this works. 


2. The routine that receives the array must not, under any circum- 
stances, make a call back to BASIC. If it does, then the location of 
the array data may change, and the address that was passed to the 
routine will become meaningless. 


3. BASIC may pass any member of an array by value. With this 
method, the above precautions do not apply. 


The following example demonstrates how a BASIC array can be passed to 


FORTRAN. 


g Example 


REM BASIC SOURCE FILE 
OPTION BASE 1 

DEFINT A-Z 

DIM A(20) 

DECLARE SUB ArrFix (BYVAL Addr AS INTEGER) 


CALL ArrFix (VARPTR (A(1))) 
PRINT A(1) 
END 


C FORTRAN SOURCE FILE 
C 


SUBROUTINE ARRFIX (ARR) 
INTEGER*+2 ARR [NEAR] (20) 
ARR(1) = 5 


In the example above, BASIC considers that the argument passed is the 
near address of an array element. FORTRAN considers it to be the near 
address of the array itself. Both languages are correct. You can use essen- 
tially the same method for passing BASIC arrays to Pascal or C. 


The parameter was declared BYVAL Addr AS INTEGER because a near 
(two-byte) address needed to be passed. If you wanted to pass a far (four- 
byte) address, then the proper code would be: 


DECLARE SUB ArrFix (BYVAL SegAddr AS INTEGER, BYVAL Addr AS INTEGER) 
CALL ArrFix (VARSEG(A(0)), VARPTR(A(O))) 


The first field is the segment returned by VARSEG. If you use CDECL 
then be sure to pass the offset address before the segment address, because 
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CDECL causes parameters to be passed in reverse order: 


DECLARE SUB ArrFix CDECL (BYVAL Addr AS INTEGER, BYVAL SegAddr AS INTEGER) 
CALL ArrFix(VARPTR (A((O)), VARSEG (A (0) )) 


Note 


You can apply LBOUND and UBOUND to a BASIC array, to deter- 
mine lower and upper bounds, and then pass the results to another 
routine. This way, the size of the array does not need to be determined 
in advance. See the Microsoft BASIC Language Reference for more in- 
formation on LBOUND and UBOUND. 


9.1.2 Array Declaration and Indexing 


Each language varies somewhat in the way that arrays are declared and 
indexed. Array indexing is purely a source-level consideration and involves 
no transformation of data. There are two differences in the way that ele- 
ments are indexed by each language: 


1. Lower bounds. 


By default, FORTRAN indexes the first element of an array as 1. 
BASIC and C index it as 0. Pascal lets the programmer begin 
indexing at any integer value. Recent versions of BASIC and FOR- 
TRAN also give the user the option of specifying lower bounds at 
any integer values. 


2. Row-major order vs. column-major order. 


This issue only affects arrays with more than one dimension. With 
row-major order {used by C and Pascal) the leftmost dimension 
changes the fastest. With column-major order (used by FOR- 
TRAN, and BASIC by default), the rightmost dimension changes 
the fastest. Thus, in Pascal the first four elements of array X (3, 3) 
are: 


X[1,1] X[1.2]) xX[t.3] Xf2,1] 
In FORTRAN, the four elements are: 
X(1,1) X(2,1) X(3,1)  -X(1.2) 


The example above assumes that both the Pascal and FORTRAN arrays 
use lower bounds of 1. Table 9.1 shows equivalences for array declarations 
in each language. In this table, ris the number of elements of the row 
dimension (which changes most slowly), and c is the number of elements of 
the column dimension (which changes most quickly). 
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If a structure or record is being passed between them, it is important that 
a calling routine and the called routine agree on storage method. Other- 
wise, data will not be properly received. The simplest method for ensuring 
compatibility between all three languages is simply to turn on packing for 
C and Pascal modules. The packed storage method may sacrifice some 
speed, but it has the advantage of creating smaller executable files. 


9.3 External Data 


You can always share data between two languages by passing parameters. 
In the case of local variables and all BASIC variables, passing parameters 
is the only convenient way to share data. 


However, C, FORTRAN, and Pascal routines can access data directly that 
are external. The term “external” refers to data that are both static and 
public; in other words, the data are stored in a set place in memory (static, 
unlike dynamic or local data, which are allocated on the stack), and the 
data have been made publicly available to other modules. Compilers make 
a data object (variable, structure or array) available by placing its name, 
along with size and type information, into the object file. 


External data (data that can be directly accessed by any other ee 
can be defined in a C, FORTRAN, Pascal, or assembly module. Note that 
a data definition is distinct from an external declaration. A definition 
causes a compiler to create a data object; an external declaration informs 
a compiler that the object is to be found in another module. 


There are three requirements for programs that share external data be- 
tween languages: 


1. One of the modules must define the static data. 


You can define a static data object in a C or FORTRAN module by 
defining a data object outside all functions and subroutines. (Do 
not 8 the static keyword in C with a data object you wish to be 
public. 


2. The other modules that will access the data must declare the data 
as external. 


In C, you can declare data as external by using an extern declara- 

tion, similar to the extern declaration for functions. In FORTRAN ce 
and Pascal, you can declare data as external by adding the 

EXTERN attribute to the data declaration. 


3. Resolve naming-convention differences. 
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In ©, you can adopt the BASIC/FORTRAN/Pascal naming con- 
vention by applying fortran or pascal to the data declaration. In 
FORTRAN and Pascal, you can adopt the C naming convention by 
applying the C attribute to the data declaration. 


The examples below help illustrate the general language features of exter- 
nal data just described. 


= Examples 


/* C source code +«/ 


int thingl1; /* Thingl is public and static +«/ 

extern int thing2; /* Thing2 is defined in another module «/ 
static int thing3; /* Thing3 is static, but not public +«/ 
ctest () 

{ 


C FORTRAN SOURCE CODE 


C 
INTEGER*2 THING] [C, EXTERN] 
INTEGER+2 THING2 [C] 
@ 
C  THING1 DEFINED IN ANOTHER MODULE, USING C CONVENTION (_thing1) 
C  THING2 DEFINED HERE, USING C CONVENTION (_thing2) 


{ Pascal source code } 


module Ptest; 
procedure Test; 
var 
thingl [C, EXTERN] : integer; { Both vars defined elsewhere } 
thing2 [C, EXTERN] : integer; { and use C naming convention } 


In the examples above, the variables thingl and thing2 are defined and 
declared with the C naming convention so that they will be placed into 
each object file as __thingl and _thing2. However, you can just as easily 
specify the BASIC/FORTRAN/Pascal naming convention, by using the 
following C statements: 


ue gue fortran thingl; 
extern int fortran thing2; 


The C attribute can then be dropped from the FORTRAN and Pascal 
source code. Each object file will contain the names THING1 and THING2. 
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9.4 Pointers and Address Variables 


Rather than passing data directly, you may want to pass the address of a 
piece of data. Passing the address amounts to passing the data itself by 
reference. In some cases, such as BASIC arrays (see Section 9.1.1), passing 
an address is the only way to share particular kinds of data between two 
languages. 


The Pascal ADR and ADS types are equivalent to near and far pointers, 
respectively, in C. You can pass ADR and ADS variables as ADRMEM 
or ADSMEM. BASIC and FORTRAN do not have formal address types. 
However, they do provide ways for storing and passing addresses. 


BASIC programs can access a variable’s segment address with VARSEG 
and its offset address with VARPTR. The values returned by these 
intrinsic functions should then be passed or stored as ordinary integer 
variables. If you pass them to another language, pass by value. Otherwise 
you will be attempting to pass the address of the address, rather than the 
address itself. 


To pass a near address, pass only the offset; if you need to pass a far ad- 
dress, you may need to pass the segment and offset separately. Pass the 
segment address first, unless CDECL is in effect. 


FORTRAN programs can determine near and far addresses with the LOC 
and LOCFAR functions. Store the result as INTEGER«2 (with the 
LOC function) or as INTEGER<«4 (with the LOCFAR function). 


As with BASIC, if you pass the result of LOC or LOCFAR to another 
language, be sure to pass by value. 


9.5 Common Biccks 


You can pass individual members of a FORTRAN or BASIC common 
block in an argument list, just as you can with any data. However, you can 
also give a different language module access to the entire common block 

at once. 


Pascal and C modules can reference the items of a common block by first 
declaring a structure or record, with fields that correspond to the common 
block variables. (For an example, see the next section.) BASIC modules 
can also employ a user-defined type to access the fields of a FORTRAN 
common block. 
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Having defined a structure, record, or user-defined type with the appropri- 
ate fields, the Pascal or C module must then connect with the common 
block itself. The next two sections each present a method for gaining 
access to common blocks. 


9.5.1 Passing the Address 
of the Common Block 


To pass the address of a common block, simply pass the address of the 
first variable in the block. (In other words, pass the first variable by refer- 
ence.) The receiving C or Pascal module should expect to receive a struc- 
ture (or record) by reference. 


@ Example 


In the example below, the C function initcb receives the address of the 
variable N, which it considers to be a pointer to a structure with three 
fields: 


C FORTRAN SOURCE CODE 

e 
COMMON /CBLOCK/N,X,Y 
INTEGER*2 N 
REAL#«#8 X,Y 


CALL INITCB(N) 


/* C source code x/ 


struct block_type f{ 


int n? 
double x; 
double y; 


} 


initcb (block_hed) 
struct block_type *block_hed: 


block_hed->n = L:; 
block_hed->x = 10.0: 
block_hed->y = 20.0; 
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9.5.2 Accessing Common Blocks Directly 
You can access FORTRAN common blocks directly by defining a structure 


(or record in Pascal) with the appropriate fields and then using the meth- 
ods described in Section 9.3, “External Data.” 


m= Example 
In the example below, cblock is declared as an external structure. You 


can reference the individual fields of cblock which will correspond to 
those of the common block CBLOCK in the FORTRAN source file. 


struct block_type f{ 


int n: 
double x: 
double y; 


3; 


extern struct bliock_type fortran cbhlock; 


9.6 Using a Varying Number of Parameters 


Some C functions, most notably printf, can be called with a different 
number of arguments each time. To call such a function from another lan- 
guage, you need to suppress the type-checking that normally forces a call 
to be made with a fixed number of parameters. In BASIC, you can remove 
this type checking by omitting from the DECLARE statement a param- 
eter list, as explained in Section 2.2, “Alternative BASIC Interfaces.” In 
FORTRAN or Pascal, you can call routines with a variable number of 
parameters by including the VARYING attribute in your interface to 
the routine, along with the C attribute. You must use the C attribute 
because a variable number of parameters is only feasible with the C calling 
convention. 


The VARYING attribute prevents FORTRAN or Pascal from enforcing a 
matching number of parameters. Each time you call the routine, you will 
be able to pass more or fewer parameters than are declared in the interface 
to the routine. However, each actual parameter that you pass will be 
type-checked against whatever formal parameters you may have declared 
in the interface. FORTRAN or Pascal will compare the type of the first 
actual parameter to the first formal parameter (if any), the second actual 
parameter to the second formal parameter, and so on. 
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Because the number of parameters is not fixed, the routine you call should 
have some mechanism for determining how many parameters to expect. 
Often this information is indicated by the first parameter. For example, 
the C function printf scans the format string passed as the first parame- 
ter. The number of fields in the format string determines how many addi- 
tional parameters the function should expect. 


The example below demonstrates the use of the VARYING attribute to 
call printf directly from Pascal (the program needs to be compiled and 
linked to the C large memory model so that printf is linked in). 


mg Example 


program Test (input, output); 
type 
stype30 : string(30); 
var 
strl : string(30); 
str2 : string(10); 
n : integer; 
procedure printf (vars sl : stype30) [C, VARYING]; extern; 
begin 


strl = 'This is %s string, number %d.’ * chr (0); 
str2 = ‘formatted’ * chr (0); 
n= i; | 


printf (str1, str2, n); 
end. 


In Pascal, you can write the interface to printf so that the format string 


can be of varying lengths, by using the ADRMEM feature. See Section 
8.4.5, “Passing Pascal Strings,” for more information. 


135 


\fIXED- [ ANGUAGE 


PROGRAMMIN G (,UIDE J[NDEX ps 
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© address operator, 103 

type declaration character, 20 
+, C indirection operator, 103 
$ type declaration character, 20 
! type declaration character, 20 
nm , type declaration character, 20 
%, type declaration character, 20 


Address sizes 

code, 15 

data, 16 
Address variables, 132 
ADR 


address type, 121 
address variable, 132 
keyword, 105 
ADRMEM, address type, 121 
ADS, address variable, 132 
ADSMEM, address type, 121 
ALIAS keyword 
BASIC, use in, 20 
FORTRAN, use in, 48, 49 
Array descriptors, 125 
Arrays, 125 
AS keyword, 21 
Assembly 
calling from 
BASIC, 81 
©, 83 
FORTRAN, 85 
Pascal, 88 
interfaces 


address parameters, used with, 86 


BASIC, 81 

C, 83 

entry sequences, 74, 76 

exit sequences, 80 

FORTRAN, 85 

local data, 75, 76 

Pascal, 88 

register considerations, 75 

return value, 78 
parameters, accessing, 76 
passing by 

far reference, 86 

near reference, 82, 86, 90 

value, 85 
procedures, 9 


ASSUME directive, 93 
Attributes, FORTRAN, 47, 105 
Automatic variables, 75 


BASIC 
arrays, 125 
AS keyword, 21 
BYVAL keyword, 21, 101 
calling convention, 13, 81 
calling from 


CALLS statement, 101, 102 
calls to 
C, 23 
FORTRAN, 26 
other languages, 19 
Pascal, 29 
common blocks, 132 
compiling, 15 
initialization, 37 
naming convention, 10, 20 
parameter-passing 
defaults, 15 
methods, 101 
parameters, list of, 21 
passing by 
far reference, 21, 102 
near reference, 38, 63, 81, 101 
value, 21, 50, 101 
procedures, 9 
SEG keyword, 21 
string format, 112 
type declaration characters, 20 
types, user-defined, 129 
VARPTR keyword, 125, 132 
VARSEG keyword, 126, 132 
BOOLEAN data type, 110 
BYVAL keyword, 21, 101 


C attribute 


FORTRAN, used in, 47, 104, 131 


Pascal, used in, 61, 131 
C language 

arrays, 102, 125 

calling convention, 13, 83 
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calling from 
BASIC, 23 
FORTRAN, 52 
Pascal, 65 
calls to 
BASIC, 37 
FORTRAN, 40 
other languages, 35 
Pascal, 42 
compiling, 15 
extern statement, 35 
far keyword, 36 
FORTRAN, linking with, 16 
fortran keyword, 35, 36 
functions, 9 
/Ge compile option, 35 
memory models, 15 
naming convention, 10 
near keyword, 36 
parameter-passing 
defaults, 15 
methods, 102 
pascal keyword, 35, 36 
passing by 
far reference, 35, 103 
near reference, 35, 103 
value, 83, 102 
pointers, 35, 103, 132 
return value, 78 
string format, 112 
structures, 102, 129, 132 
type declarations, 35 
Calling conventions, 12 
CALLS statement, 101, 102 
CDECL keyword, 8, 20, 126 
.CODE directive, 74 
CodeView debugger, 73 
Column-major order, 127 
Common blocks, 132 
Compact memory model, 15, 74 


COMPLEX data type, FORTRAN, 109 


CONST keyword, 105 
CONSTS keyword, 105 
C-string feature, FORTRAN, 119 


Data address size, 16 
DATA directive, 74 
DECLARE statement, 8, 19 
Default pointer size, C, 104 
Default segment names, 91 
DGROUP, 93 
Double-precision reals, 110 
Dynamic variables, 75 
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EQU directive, 77 
extern statement 
C, used in, 35 
Pascal, used in, 61 
External data, 130 


FAR attribute, 105 
Far reference parameters 
BASIC, 21, 102 
C, 35, 103 
FORTRAN, 48, 86, 104 
Pascal, 61 
far keyword, 36 
FARDATA directive, 93 
Floating-point numbers, 109 
FORTRAN 
ALIAS keyword, 48, 49 
arrays, 125 
C attribute, 47, 131 
C, linking with, 16 
calling convention, 13, 85 
calling from 


BASIC, 26 


other languages, 47 
Pascal, 55 
common blocks, 132 
compiling, 15 
COMPLEX data type, 109 
functions and subroutines, 9, 47 
INTERFACE statement, 47 
LOC function, 132 
LOCFAR function, 132 
LOGICAL data type, 111 
naming convention, 10, 20, 49 
parameter-passing 
defaults, 15 
keywords, 48 
methods, 104 
PASCAL attribute, 47 
passing by 
far reference, 48, 86, 104 
near reference, 48, 104 
value, 48, 104 
return value, 78 
string formats, 113 
fortran keyword, 35, 36, 131 
Framepointer, 74 
FUNCTION procedures, 9 
functions, 8 


A Ge compile option, 35 
GROUP directive, 93 


Huge memory model, use with C, 15 


Integers, 109 
INTERFACE statement, FORTRAN, 
47 


Large memory model, 15, 74 

LES instruction, 78, 88 

LOC, FORTRAN function, 132 
LOCFAR, FORTRAN function, 132 
LOGICAL data type, FORTRAN, i111 
Lower bounds, arrays, 127 


LSTRING, 113 


Macro Assembler 

See also Assembly 

assembly interfaces, writing, 73 

EQU directive, 77 

simplified segment directives, 73 
Medium memory model, 15, 74 
Memory models, 15, 35, 73 
Microsoft segment model, 91 
Mixed-language programs 

compiling, 15 

linking, 16 
MODEL directive, 73, 85 


Naming conventions, 9, 130 
NEAR attribute, FORTRAN, 48, 105 
Near reference parameters 
assembly, 82, 86, 90 
BASIC, 38, 63, 81, 101 
C, 35, 103 
FORTRAN, 48, 104 
Pascal, 61, 105 
near keyword, C, 36 
/NOT linker option, 10 


Packed storage, 129 
Parameter list, BASIC, 21 
Parameter type declarations, in C, 35 
Parameter-passing methods, 13 
Parameters 
See also Passing by 
assembly, accessing from, 76 
calling conventions, effect of, 12 


Parameters (continued) 
passing, 13 
varying number of, 13 
PASCAL attribute, 47, 104. 
Pascal 
address variables, 132 
arrays, 125 
C attribute, 131 
calling convention, 18, 88 
calling from 


BASIC, 42 


other languages, 61 
compiling, 15 
functions and procedures, 9 
LSTRING, 113 
naming convention, 10 
parameter-passing 
defaults, 15 
methods, 105 
passing by 
far reference, 61 
near reference, 61, 105 
value, 61, 88 
records, 129, 132 
return value, 78 
string formats, 113 
pascal keyword, 35, 36, 131 
Passing by 
far reference 
assembly, 86 
BASIC, 21, 102 
C, 35, 103 
FORTRAN, 48, 86, 104 
Pascal, 61 
near reference 
assembly, 82, 86, 90 
BASIC, 38, 63, 81, 101 
C, 35, 103 
FORTRAN, 48, 104 
Pascal, 61, 105 
value 
assembly, 85 
BASIC, 21, 50, 101 
C, 83, 102 
FORTRAN, 48, 104 
Pascal, 61, 88 
Pointers, 35, 132 
Procedures, 8 
Public data, 130 
PUBLIC directive, 74 
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Real numbers, 109 

Receiving parameters and calling 
conventions, 12 

Records, 129 

REFERENCE attribute, 48, 104 

Return value, offset, 79 

Row-major order, 127 


SEG keyword, 21 
SEGMENT directive, 91 
Segment directives, simplified, 73 
Segments, 93 
Single-precision reals, 110 
Small memory model 

C, use with, 15 

procedures, setting up, 74 
Special data types, 125 
Stack frame, 74, 76 


Stack Trace, CodeView feature, 73 


Stack variables, 75 
Static data, 130 
Strings 
formats, 111 
passing from 
BASIC, 114 
C, 117 
FORTRAN, 118 
Pascal, 120 
Structured data types, 125 
Structures, 129 
Subprograms, 8 
Subroutines, 8 


Type declaration characters, 20, 21 


Unpacked storage, 129 
Unsigned integers, 110 
User-defined types, 129 


VALUE keyword, 48 

Value parameters 
BASIC, 21, 50, 101 
©, 83, 102 
FORTRAN, 48, 104 
Pascal, 61, 88 
passing, 14 

VAR keyword, 105 

Variables 
address, 132 
automatic, 75 
dynamic, 75 

VARPTR keyword, 125, 132 
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VARYING attribute, 134 
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